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SYMBOLS 


coulomb friction static force 
rear cable spring constant 
wing span (reference) 
wing chord (reference) 
drag coefficient (stability axis) 
referenced to center of gravity 
rolling moment coefficient 
left coefficient (stability axis) 
pitching moment coefficient 
rotational damping coefficient 

yawing moment coefficient 

referenced to equation reference center 

x force coefficient (body axis ) 

side force coefficient 

z force coefficient (body axis ) 

external forces on model 

acceleration due to gravity 

inertias with respect to axis a, b at the 
equation reference center 

inertias with respect to axis a, b at the center 
of gravity 

vertical acceleration feedback gain 

roll rate feedback gain 
yaw rate feedback gain 
pitch rate feedback gain 
model mass 
pulley normal force 


model roll rate 



q, Q 


model pitch rate 



dynamic pressure 

model yaw rate 

model reference wing area 

cable tension 

front cable tension 

rear cable tension 

tunnel velocity 


W 

M, N, L 
X, y, z 
e, Y 



P 

S. 

S. 

So, 

U) 

c 


model weight 

external moments on model 

displacement coordinates of model 

angular rotations around x, y and z eixis 
respectively 

angle of attack 

direction cosine between flying cable c and 
body axis d 

angle of sideslip 

roll control deflection 

pitch control deflection 

yaw control deflection 

roll control deflection 

model rotational rates 

tunnel density 


Stability derivatives are indicated by subscript notation. For example: 

c_ = ?) c^/a Of 


c = a c /a (pb/2v ) 

n n ' o’ 


(see section 11.1, description of array AERO) 



1.0 IMTRODUCTION 


In accordance with the requirements set forth under NASA 
Master Agreement NAS1-10635» Develojinent and Implementation of 
Space Shuttle Structural Dynamics Modeling Technology- Task Order 
Number 9> Cable Mount System Study for Space Shuttle, the follow- 
ing report is submitted. 

Contained in this report is a discussion of the theoretical 
derivation of the set of equations applicable to modeling the 
dynamic characteristics of aeroelastically- scaled models 'flown' 
on the two- cable mount system in the Langley Research Center l6' 
transonic dynamics tunnel. Also contained herein is a description 
of the computer program provided for the analysis. 

The program will calculate model trim conditions as well as 
3 DOF longitudinal and lateral/directional dynamic conditions for 
various flying cable and snubber cable configurations. Sample 
input and output is contained in Appendix B and C. 



2.0 GENERAL PROGRAM DESCRIPTION 


The digital computer program described in this report is used 
to analyze the rigid body stability and trim characteristics of 
models mounted on a 'two-cable mount system' presently used in 
the Langley Research Center l6' Transonic Dynamics Tunnel. The 
program is so structured as to allow model, tunnel and cable 
system parameters to be varied independently in order that their 
effects on model stability can be analyzed. 

All program options, theoretical derivations, and data 
input formats will be explained in the body of this report. The 
following items are of special interest and will be explained in 
detail in the report: 

• The trim routine will predict model angle of attack, 
pitch control deflection and eill cable tensions and 
angles for any tunnel condition of interest to the in- 
vestigator. 

• Stability analysis is accomplished using 2 sets of 3 
DOF uncoupled longitudinal and lateral/directional per- 
turbation equations modeling both model aerodynamic 
effects and cable effects. 

• Included in the stability analysis is the ability to 
investigate the effects of automatic stabilization using 
model stability augmentation. The general feedback loops 
provided allow stabilization using pitch, roll and yaw 
rate feedbacks to yaw, pitch and roll moment generators 
in the model. 

• A root locus feature is built into the program allowing 
for automatic variation of any input parameter, producing 
trim variations plus a locus of roots for the longitudinal 
and/or lateral/directional dynamics. 

• Four general cable configurations are included in the analy- 
sis: front and rear cables vertical, front and rear cables 
horizontal, front cable vertical and rear cable horizontal, 
front cable horizontal and rear cable vertical. 



• The effects of both snubbed and unsnubbed snubbers on 

trim and stability have been included. The general snubber 
arrangement is a double ’V' shown in Figure U.3* However, 
proper selection of input data will convert the snubber 
model into any snubber configuration presently envisioned. 

• Provisions have been made to include the effects of one 
additional cable attached anywhere on the model. 

• All aerodynamic data for the model is input in stability 
axis as 'point data' at a given mach number or as 'table 
data' where all coefficients are input across the mach 
number range in interest. 

• All cable tie-down locations and model position are input 
in tunnel coordinates (station, water line, butt line), 

• Normal program output includes the trim condition, the 
roots of the characteristic equations (longitudinal and/ 
or lateral/directional), damped natural frequency and 
damping ratio for each pair of complex roots and the time 
to half amplitude for real roots. Additional program out- 
put , as a user option, is included for debugging purposes. 

2.1 MAJOR PROGRAM SUBROUTINES 

A general flow chart of the program is shown in Figure 2.1. 

The following comments are made in reference to that chart. 

All input data for the initial case is read in first (input 
format described in Section ll). If table data is to be used, it 
must be read in on the first pass. If root locus is to be used, 
the proper value of the parameter to be varied is calculated in 
subroutine RUTLOC. The next step is to transform the input inertia 
and aerodynamic data to the equation reference axis in subroutine 
TRANl (Section 3.1 and 3.2). The model is then trimmed in sub- 
routine TRIM described in Section 4.0. After completing the trim, 
the aero data is transfoimed to body axis in subroutine TRANS des- 
cribed in Section 3.3. Depending on the option selected by the user 



either longitudinal or lateral/directional or both stability cal- 
culations are made. These calculations are contained in subroutines 
LONG and LAT which are discussed in Sections 6.0 and 7.0, Upon re- 
turning from these subroutines, the root locus routine is entered 
if a parameter variation is in progress or a new case is initiated. 
Input data for a new case is discussed in Section il.o. 

The subroutines formulated to handle snubber effects (SNTRM, 
LONGSN, LATSN) are called from within the TRIM, lONG and LAT rou- 
tines and are discussed in Section 8.0. 

A description of the three main subprograms, TRIM, LONG, LAT, 
and their supporting subprograms are presented in Sections 4 , 6, 

and 7 respectively. The format used is a brief des- 

cription of the purpose, the theory, some pertinent equations and 
a functional flow diagram for each subroutine. An exception to 
this approach is the theoretical development of the perturbation 
equations and the cable influence coefficient matrix. The devel- 
opment of the theory and equations in generalized form are pre- 
sented in Section 5- 

The particular applications of these generalized equations 
to the longitudinal and lateral directional analysis are then discussed 
in Sections 6 and 7 respectively. 

The axis system used throughout the study is a conventional 
right-handed body axis fixed to the model with the origin at a point 
called the center of reference (cr). The positive x axis points 
forward out the nose of the model and the positive y axis is out 
the right wing. Figure 2.2 shows the axis system and a nomenclature 
of the various cable constraints. 
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Figure 2.1 - EXEC ROUTINE FLOW CHART 













STA, WLjBL - wind tunnel coordinates ~ stations (inches), water line 
(inches), butt line(inches) 

X, y, z - body axis - fixed to the body 

O' (IC, J) - direction cosine angles, IC defines the cable and J 

defines the axis. e.g. is the direction cosine angle 

from the z axis to the number 1 cable, 
cr - origin of the body axis system, center of reference 

C.G. - center of gravity 


FIG. 2.2; AXIS AND CABLE DEFINITION 



3.0 INERTIA AND AERODYNAMIC DERIVATIVE TRAUSFORMftTIOWS 


The program provides for general placement of the model mass 
center of gravity and the aerodynamic reference point. All force 
and moment equations have been written around the equation reference 
center which is located in terms of tunnel coordinates (STACR, WLCR, 
BI£IR). All other reference points (center of gravity and aerodynamic 
reference) and pulley positions are located with respect to the 
reference center. 


Since all equations are written with respect to the reference 
center, the inertias and aerodynamic data must be transformed to 
this center. This is done in subroutine TRANl. 


In addition to a reference center transformation, the aero- 
dynamic derivatives must be transformed from stability to body axis. 
This is accomplished in subroutine TRANS. 


3.1 INERTIA TRANSFORMATION 


The classic inertia transformations, assiming constant model 
density, are used to transform mass moment of inertias from the 
center of gravity (inertias are input as body axis values at the 
center of gravity) to the equation reference center. The axis 
systems at the center of gravity and the equation reference center 
are parallel (both lie along the x-body axis) requiring only a trans- 
lational transformation. It is also asstuned that there is no lateral 
displacement between the center of gravity and the equation reference 
center. The resulting equations shown below are modeled in sub- 
routine TRANl (Figure 3-l)- 
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AERODYNAMIC REFERENCE TRANSFORMATION (Translation) 
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All aerodynamic moment effects must be transformed to the 
reference center. The following general theory is used in sub- 
routine TRANl to accomplish the transformation. 



cewTeft, 



fi€F, ce^treR 


Referring to the above figure: 

Cm^ = Cm. - - CD. + - CL. 

R 1-1-1 
c c 

A similar situation exists for lateral and directional moment 
derivatives. 



The force derivatives are not effected by a translational shift 
in axis systems. 

3.3 AERODYMMIC TRANSFORMATION FROM STABILITY TO BODY AXIS (Rotational) 

Once the aero data is referenced to the reference 
center it is then transformed from the stability axis input form 
to the body axis form necessary for stability calculations. This 
is accomplished in subroutine TRAMS. The transfomation equations 
were taken directly from 'Aircraft Motion Analysis' by Thelander, 
pgs. 57-58. A flow chart of subroutine TRANS is shown in Figure 3-1- 




SUBROUTINE TRAKL 



FIGURE 3.1 - 


FLOW CHART - TRANI AND TRANS 




4.0 TRIM ANALYSIS 


4.1 Subroutine TRIM 

The function of this subprogram is to determine the vehicle trim 

attitude for a given initial rear cable tension, T„ . The outputs of 

KO 

the program are the trim attitude, 0, trim elevator deflection, F. , 
and the geometry and tensions of the flying and antilift cable system. 
The model may be trimmed at any water line and station specified. The 
equation reference center (STACR, WLCR) is used to position the model 
In the tunnel. 

The subprogram defines trim as the point where the following 
three requirements on the longitudinaJL equations of motion are satis- 
fied: 



a = - ZF = 0 ( 4 . 1 - 1 ) 

X m X ^ ^ 

e = i ZM =0 

I V 

y ^ 

The variables in this set of equations are 9, 6 and the 

front cable tension. The T^j, is a variable because the front cable 
is fixed in length and the tension must necessarily adjust to satisfy 
the constraint. 


A numerical itearative technique is used to trim the system of 
cable and model forces. The procedure is based on the following 
formulation for convergence. 


The forces and moments of equation 4.1-1 are expanded using 
the Taylor *s expansion: 
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(4.1-2) 



Equation h.1-2 must be equated to zero to satisfy trim. 
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Inverting matrix A will define the required incremental change 

to the variables 9, 6 , and T to satisfy trim, i.e. 

e -r 

-F 

zo 

-F 
xo 

-M 

yo 

The logic in the TRIM subprogram, shown in Figure 4.1, is to 

compute the initial forces and moments (F , F , M ), and deter- 

zo^ xo’ yo ’ 

mine whether the trim requirement, is satisfied. 

If not, the program computes the set of partials in eq. 4.1-3 , inverts the 
matrix A and determines the increments A9, and AT^,. The 

variables are modified and the forces and moments recomputed. 

The Model is assumed to remain stationary in translation during 
the trim procedure. This assumption violates the constant front cable 
length constraint, however, the translation associated with attitude 
changes is negligible relative to the overall front cable length. 

If the trim requirement has not been satisfied after 100 
iteration cycles, the TRIM subprogram will print out a note to this 
effect and the last set of 9, and T^ is assumed in the continua- 
tion of the program. 

4.2 Subroutine EQU 

This subprogram is called by the subroutine TRIM, Its function 
is to generate the longitudinal forces and moments. Each time this 
routine is called, it establishes the cable geometry, then computes 
and sums the force and moment contributions due to aerodynamics, 
vehicle weight and the system of cables. 






The input to this subprogram are the variables 9, 6 and T * The 

e Jr 

basic equations are : 

EF = F + F + F 

aero front cable ^rear cable 

+ F + F + W •» cos e 

z z 

anti-lift snubber 

cable 

^ ^x ^x (^-2-1) 

aero front cable rear cable 

+ F + F - W * sin 0 

XX 

anti -lift snubber 

cable 


D4 = M + M + M 

^ ^aero ^front cable ^rear cable 


+ M + M 

^anti-lift ^ 
cable 


snubber 


The contribution, M , shown here is a necessary term since 

^wgt 

the moments are taken about a point other than the center of gravity 
location. 


The aerodynamic forces and moment are determined as follow: 


Lift = L = qS(C^ + 0 + 6 ) 

L L L, e 

0 0- 6^ 

Drag = D ^ qs(c^ + 0 + 6^) 

O 0! 6 

e 

F = -(L cos 0 + D sin 0) 

aero 

F = -(D cos - L sin 0) 

aero 



( 4 , 2 - 2 ) 


The anti-lift cable forces and moments are determined by computing 
the forces in the wind tunnel axis (an axis aligned with the wind tun- 
nel) and then transforming them to the rotated body axis. Along the 
wind tunnel axis, the F^ and F^^ are computed as follows: 



= FZLTT = TLFP * Cos a, 


(4.2-3.1) 


ZWT 

= FXLTT = TlfT * Cos 

where are direction cosine with respect to the wind axis and 
TLFT is the anti-lift cable tension force defined by the equation; 


TLPT = TLFTO + AKLPT (A-Jt^) (4. 2-3. 2) 


AKLFT here is the spring constant, TLFTO is the initial tension 
corresponding to initial cable length, Converting these forces 

to the body axis we have: 


F 
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= Fxt 
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F 
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f4. 2-4,1) 


The anti-lift cable moment is easily obtained since the attach- 
ment point relative to the center of reference is known ( ALTX, ALTZ) . 
Thus: 

M = ^ * ALTZ - F^ * ALTX (4.2-4. 2) 
^ anti-lift anti-lift ^nti-lift 


The flying cable forces and moments along the body axis are 
directly computed since the direction cosines between each cable 
and the body axis were computed in subprograms FPLYV and RPLYH. 
Thus: 



(Cos 

(Cos 
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(COB 0,33 


+ Cos 
+ Cos 
+ Cos 
+ Cos 


( 4.2-5. 1) 


The subscripts of the direction cosine refer to the cable and 
the axis in question. The two front flying cables are 



designated as 1 and 2 and the two aft flying cables are designated 
as 3 and U. The body axis x, y, z is referred to numerically as 
1, 2^ and 3« Thus Cos the direction cosine of the number 

one front cable with respect to the z-body axis. The rear tension 
force, Tj^, is defined by the following equation. 

\ (4.2-5.S) 


where is the initial cable tension corresponding to ^ 

being the summation of the initial lengths of cables 3 and AKR 
are respectively the rear cable spring constant and the in- 
stantaneous summed cable lengths of cables 3 and 

A derivation of the generalized cable force and moment is 
presented in Section 5.4. 


The flying cable moments are obtained via the following equation 
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cable 


4 

= S 
i=l 


X. * F. 
1 1 


(4.2-6) 


where corresponds to the moment arm from the center of rotation 
to the point of action of the force F. The components of x^ are com- 
puted in subroutines FFLYV and RPLYH. 

Figure 4.2 presents a functional flow diagram of the subroutine 

EQU. 


SUBROUTIME FFLYV 

The function of this subroutine is to compute the geometry of 
a set of vertically configured flying cables. 

The inputs to this program are: 

1. The location of the cable attachment points to the wind 
tunnel wall 

2. The location of the vehicle in the tunnel 

3. The vehicle attitude 

4. The pulley size 

5. The pulley location on the model 



The outputs of this program are the following geometric informa- 
tion for the upper and lower cables: 

1. A set of direction cosine angles defining the cable orient- 
ation in space relative to the body axis (noted as ADC 
in the program) 

2. A Bet of coordinates locating the point of action of the 
cable tension force (noted as ARM in the piogram) 

3. The cable length (noted as XLGTH in the program) 

Figure 4.3 defines the geometric nomenclature and some of the 
equations in the subroutine, The equations show the derivation for 
the cable length and the angle BETAU for the upper cable. Similar 
computation will define the length and the angle BETAL of the lower 
cable. Direction cosine angles of each of these cables can be de- 
rived from the angles BETAU, BETAL and the vehicle attitude 9. The 
coordinates of the point of action are also readily computed. The 
equations for the upper front cable are presented as an example. 

Direction Cosines: 

= ADC (1,1) = -0^ + 9 

= ADC (1,2) = n/2 (4.3-1) 

= ADC (1,3) = tt/2 - 
Point of Action: 

X = ARM (l l) =EP- RAD * sin of, 

P lx 

y^ = ARM (1, 2) = 0 (4.3-2) 

z = ARM (1, 3) = PRJU + RAD * cos 
P lx 

A f\mctional flow diagram of this subroutine is presented in 
Figure 4.U. 



SUBROUTINE RELYH 


k,h 

The purpose of this subroutine is to define the geometry of 
a set of horizontally configured flying cables. 

The inputs required for this subroutine are: 

1. The location of the cable attachment points to the vrind 
tiuinel wall 

2. The location of the model in the tunnel 

3. The attitude of the model 

4. The pulley size 

5. The pulley location on the model 

The output of this program is the following geometric informa- 
tion for each of the port and starboard flying cables. 

1. A set of direction cosine angles defining the cable orienta- 
tion with respect to the model body axis (noted as ADC in 
the program) 

2. A set of coordinates locating the cable force point of 
action ( noted as ARM in the program) 

3. The cable length (noted as XLGTH) 

Figure 4.5 defines the geometric nomenclature used in this sub- 
routine. Figure 4.6 presents a functional flow chart of the program 
logic. 




FIGURE 4.1 - FLOW CHART - SUBROUTINE TRIM 
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FIGURE 4.2 - FLOW CHART - SUEROUTINE EQU 
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GAMU = tan~^ (HHU/EP) 

T-j^ = EI^ + HHU^ 
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TIG, U.3 - GEOMETRIC BEFINITIONS AND EOJATIONS 




FIGfURE 4.4 


FLOW CHART - SUBROUTINE FPLYV 
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jTp, z^ - body axis coordinates of pulley 

BLD, Zg - body ajcis coordinate of cable attachment point 
XL - length of cable - inches 

XLHI - projection of cable onto X. , - Y. , . , 

Dody body plane 

rad - pulley radius ~ inches 


FIG. 4.5 - DEFINITION OF GEOMETRIC NOMKWnT,A'njRE 
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FIGURE 4.6 - FLOW CHART - SUBROUTINE RPLYH 




5.0 THEORETICAL DEVELOPMENT OF THE PERTUBBED EQUATIONS OF MOTION FDR 
A CABLE SUSPEHDED MODEL IN A WIND TTHTOTirr. 

The development is divided into four sub- sections. The first 
section presents a derivation of the linearized equations of motion. 
The following sections describe the derivation of the force and 
moment contributions due to the vehicle weight, aerodynamics and 
cable forces respectively. 


5.1 DERIVATION OF LINEARIZED EQUATIONS OF MOTION 

The linearized equation of motion is derived about the center 
of reference, "CR", rather than the center of gravity. The relative 
location is defined by the vector, r, as shown in Figure 5.1. 

^CR ^CR total force and moment less the weight contri- 

bution about point CR. Writing the equation 
of motion about the center of gravity: 

Fch + " ^CG ( 5.1.1) 

^ * ^CE " It " ' 5.1-2) 



a and H are the translational acceleration and the angular 
momentum vector respectively. 


The following relationships are noted for a rigid body 


Displacement : 

^CG 

= ^CR 

+ r 

( 5.1-3) 

Rate : 

^CG 

= ^CR 

+ u) X r 

( 5.1-4) 

Acceleration: 

^CG 

= '^CR 

+ ®xr+«)x(u)xr) 

( 5.1-5) 
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where U) is the rotation vector of the model. 



Substituting equation 5-1- 5 into equation 5.1-1? we have: 
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( 5 . 1 - 6 ) 


noting again that 


“CE ' "CG * “ 1 


or 


“cR “ “CG * ” 


^ - - 
r X /T + u) X r 


( 5.1-7) 

( 5 . 1 - 8 ) 


and 


“cR '*”CG 
dt dt 


+ mrx(u)xr + u)x(u)xr)) ( 5.1-9) 


Equations 5.1-6 and 5.1-9 can be solved for and 

respectively, and the results substituted into equation 5.1-2. 
Cancelling like items on both sides of the equation reduces 5.1-2 

( 5 . 1 - 10 ) 

Equations 5.1-6 and 5.1-10 represent the equation of motion 
about the point, "CR". 

Equation 5.1-6 can further be simplified by noting that the 
initial rates and accelerations are zero because the vehicle is 
statically trimmed in the tunnel. The OJ must necessarily be a per- 
turbation vector and (« x ( u) x r) represents a higher order term 
which will be ignored in the linearizing of the equation. 

Equations 5.1-6 and 5.1-10 can now be written in the form: 

Fj,j^ +m(g-coxr)=m(V +ujx 

+ m[r X (g - = (H + <i) x 

These results show that to study perturbation motion about a 
point other than the center of gravity, the form of the pseudo 
linearized equation of motion is similar to that about the C.G. 

• -P^ 

except for the gravity terms which are modified by lu and a^^. 


(5.1-11) 

(5.1-12) 





Expanding the right hand side of equations 5.1-11 and 5.1-12 
and assuming symmetry about the x-z plane, we have 

E F = m ( U - RV + QW) 

2L 


T. F =m(v-PW+RU) 

y 

E = m (W - QU + PV) 

EL = PI^ - (R + PQ) - OR (ly - 

EM = - (E^ - P^) - EP (I^ - g 

E » . i - (p - QE) - KHi^ - y 


(5.1-13) 


The nomenclature in Eq 5«1"13 are used in the conventional 
manner. If each of the variables U^VjW^ and P, R are re- 
placed by a steady state term plus an increment, e.g. X ^ + AX: 

the expressions expanded and then noting that all the steady state 
terms are zero. 5 . 1-13 is simplified to 


I! F = mu 

X 


E F = m-(r 

y 

E F = mw 
z 

EL = pl 

X xz 

EM =61 

y 

EN = - f)I 

z xz 


(5.1-14) 


Returning to equation 5 . 1-11 and expanding the left hand side of 
the equation 

• * « 

^CR ^^CR ^ ^ ^ (5.1-15) 

we find that due to trim 

^CE + SSo = 0, 3^ = 0 


(5.1-16) 



the perturbed force equation is thus: 


+ m(Ag-<«xr)=mv (5 - 1-17 ) 

or AF^P + Aw = m V ( 5.I-I8) 

The perturbed moment equation 5* 1-12 can be similarly derived: 

+ aJL + m f r x(g^ + Ag + ^) ] = H ( 5.I-I9) 


AF^P + Aw = m V 


^CR + = 


\r ^ ^ ^ «o = ° 

AMqr + m[rx(Ag--fr)l = H 


AM_^ + AM 5 H 
CR wgt 

Equation 5.1-18 and 5.1-21 can finally be written as 


(5.1-20) 

( 5 . 1 - 21 ) 


AF + AF , _ + AW = m V 

aerOcR cable^^^^ 


AM +AM^^ +AM,=H 

aero^p cable^„ wgt 


(5.1-22) 

(5.1-23) 


The development of the weight, aerodynamic and cable terms are 
described in the following sections, 5,2, 5.3 and 5-^ respectively. 


The weight contribution about the point, CR, is defined by 
equations 5.1-18 and 5.1-21. 


AW=m(Ag-^xr) 

= m [r X (Ag - v) ] 


(5.2-1) 


The Ag tenn is derived from the trim weight vector which has 
the following components along the trim axis: 


gxo^ 

= g 

Sin 

0 

0 



gyot 

= g 

Cos 

0 

0 

Cos 

0. 

gzo^ 

= g 

Cos 

0 

0 

Cos 

0. 



The Eulerian Transformation matrix 'E' for small perturba- 
tions is: 

1 Y -9 

E = f 1 0 (5.2-3) 

e -0 1 

The total contribution of g along the instantaneous body axis is 

f gg}= Efgt} (5.2-4) 

Subtracting the steady state increment gives Ag^ 

I -g Cos 9 9 \ 

g [Sin 9^Y + W Cos 9^ 0] | (5.2-5) 

g [-Sin 9 9 - Cos 90] ) 

^ o o' 


The effective weight vector can now be determined if note that: 



The moment vector induced by the weight is detennined 



XCG 

0 

ZCG 

AM = m 
wgt 


• « 

^by- y 





^GT ~ “ 


(5.2-9) 


-ZCG ( - y ) 

ZCG (Ag^^-x ) - XCG (Ag^^-^*) 

XCG (Ag^y- V ) 

where Ac , Ag and Ag are defined by equation 5,2-5 

ox by bz 

5.3 DERIVATION OF AEEODYNAMIC CONTRIBUTION TO THE PDRCES AND 

MOMENTS 

The aerodynamic forces and moments of equation 5.1-22 and 5.1-23 
can be expemded as equation 5.3-1. 













c |5 y + C f y * c ^ » W .c , + C \ t 

''o ''o >'p ^''o I ^r) ^''o 


- C qS'i' + C qS6 + C qS6 



( 5 . 3 - 3 . 3 ) 



Al. = 
A 


qSb 


po po po \r P/2V 


- C, qSb’lf + C, qSb6 + C, qSb 6 
-fcg r Xg a 

r a 


' ‘ - \) 

] 


(5. 3-3. 4) 


n = 


C ^ i + c ^ 5 c ■. c qs^e 

mV mV m* 2V m 

u o O' o a o O' 

_2 


(' 


+ fc.+C ll^e+C qSc 6 

I TT>* m* I ZI nic < 


m* 

0/0 




(5.3-3. 5) 


An. = 


[ 


c 




n. V. ^ ^ t- ^ ^ 2V, 


- C qSbV + C qSb6 + C qSb6 
n.. n. r n, a 

R 6 

r a 


^ 0 +fc - C 
o \ ”r "e 

] 


\3^ Y 
B / o 


(5. 3-3. 6) 


5.U DERIVATION OF THE CABLE FORCES AND MOMENTS 

The generalized force and moment equations for a single cable 
are defined. The forces and moments of the entire cable system are then 
obtained by the proper summation of each individual cable contribu- 
tion. 

For a single cable, a component of force along any trim axis 
can be written in terms of the tension in the cable and its direction 
cosine with respect to the axis. i.e. 

F. = T Cos O'. i = X, y or z (5,4-1) 

The instantaneous force component, due to changes in the cable 
tension and direction cosine, along the trim axis can be defined as: 

(F + AF). = (T + AT) Cos (or + Av). 


(5.^-2) 



whereF^ is the steady state force component and AF the change in this 
component. Expanding this expression and linearizing, we have: 

F = (F + AF). = T Cos a. + AT Cos of. - T Aa. Sina. (5. 4-3.1) 
o 1 i 1 1 ^ ^ ± / 

or ^ “i (5. 4-3. 2) 

i 

AF. = A T Cosa. - T tpt. Sinof. , , ^ 

1 ill (5.4-3. 3) 

The force, in equation 5.4-2 , is the instantaneous force 
along the trim body axis. The instantaneous body axis may be dis- 
placed through perturbation angles Y, 9 and 0. To obtain the force 
along the instantajieous body axis, vector , is transformed via the 
Eulerian transfomation matrix defined in equation 5.2-2 . 



+ A F 



E 


, F + AF 
o 


T 


Expanded, equation 5*^-^ takes the following form: 


(5.4-4) 



1 Y -0 
-Y 1 0 

9-0 1 





+ 


10 0 
0 10 
0 0 1 


Af j ^ + HDT 


(5.4-5) 


The first term is the steady state term, the next term is due to 
rotation of the body axis and the third is due to the perturbation 
of the steady state force. Subtracting the steady state force, the 
incremental change in the cable force projected on the instantaneous 
body axis is obtained. 



(5.4-6) 



AF 

1 

+ 'i 

F 

To^ 

- e 

^To 

"af 

_'"2 

- Y 

F 

^°i 

+ 0 

^To 

3 

+ 9 

F 

T°i 

- 0 

F 

To. 

4 


] 


To determine the incremental change in moment about the instan- 
taneous body axis, the vector notation of the generalized moment 
vector, K, is written as: 

K = ( Xp X Fj) ^ 


X is the vector from the center of rotation to the point of 
P 

action of the cable force, F^. This vector has been defined in the 
trim analysis. is defined by the matrix in equation 5-4-5 . 


Expanding the equation and subtracting the steady state moment 
term out, the following is obtained: 


(Ak) 



1 r y 

AF.P, - 

z 

AF.„ 

’al 

lip 

6 

p 

T. 

C 

AM 

= ) r z 

AF^ - 

X 

AF„ 

\L p 

^1 

P 

T 

AN 

B / r- 





f 

AF 

y" 

AF 


I L p 

To 

^p 

T. 


+ zF„ 'l'-/yF^ +z 

p To^ Ip To^ p 

- (z +x F„ \el 

I p To^ p To^ I J 

-(xF^ +jrF^ )Y+X 

y p To^ -^p To^ j p 




).] 

.] 


(5.4-8) 


Equations 5-4-6 and 5-4-8 are the generalized cable forces and 
moments for a single cable. The force terms with a subscript zero 
are defined by equation 5- 4-3- 2. The AF^ increments are obtained 
from equation 5. 4-3. 3 once AT and' Aof^ are defined. The change in 
tension force, AT, is proportional to Aj^ via the spring constant. 
The is the change in the direction cosine with respect to the 
trim axis. 


To determine AT and the vector representation of the cable 

at any instant of time must be defined with respect to the trim axis. 



Let represent the vector to the cable tie-do\m point 

the tunnel wall from the center of reference in the trim axis 
systems and X the vector to the point of action in the body axis. 

Let X be the transformation of X onto the trim axis system, i.e. 


•T 




= E 


-1 


{M 


The cable vector is thus defined by equation 5. ^-10 

A = X - X = L Cos a. + 8. 

Wt 1 1 d i = 1, 2, 3 


(5.4-9) 


(5.4-10) 


where 6^ is defined by the following: 




62 = - (XpY -ZpjzS + y) 


6^ = - (-Xp9 + y^0 + z) 


X, y, z, Y, 9^ 0 are perturbation variables. 


(5.4-11) 


The magnitude of A is the instantaneous length of the cable. 
Expanding and linearizing the equation gives the following: 


It +A£= a =A +S Cos a. 6. 
o ' ' o 1 1 


(5.4-12) 


or 


Lit = T, Cos Qf^ 6^ 


(5.4-13) 


The incremental change in direction cosine can be determined by 
defining the unit vector along a and then taking the dot product 
along the x, y, z axis. 

(5.4-14) 


Cos (a; + Ly) 


1 = (xi®)' “1 

..th 


where u. is the unit vector along the i trim axis 
1 




Expanding and linearizing: 


i Cos + td Cos O'. - 6a ^ I Sin Qf^ = ff • u. 
i 1 i i 1 


' (’'wt - v>' 


or 6a. = 


i -JSino'. 

1 


-iCos 0^. + 61 Cos 


Since from equation 5. ^-10 : 

( X,p-X ) • u. Cos Of. + 6.\ 

' wT pT ' 1 y 1 1 y 

Equation 5.U-16 simplifies to: 


6a. = 


i 1 Sin a 


; |aj? Cos ^ 


(5.4-15) 


“i - [\ - \) • “ij (5.1.-16) 


(5.4-17) 


(5.4-18) 


Equations 5.4-13 and 5.4-18 are the necessary equations to define 
AF nn equations 5.4-6 and 5.4-8. In Sections 6.0 and 7.0, these equations 
are simplified for the longitudinal and lateral directioial analysis to 
obtain the influence coefficient matrix. 




6.0 Longitudinal Stability Analysis 
6.1 Subroutine LONG 

This subroutine computes the perturbed forces and moments for 
the longitudinal perturbation equations of motion and extracts the 
characteristic roots for a stability analysis. 

The general form of the linearized equation of motion (5.1-14) 
is reduced to equation 6.1-1 for the longitudinal analysis. 

EAf = mu = Duc 

X 

SAF^ = mw = mz (fe.l-l) 

EAM = I q = I e 

y y y 

X, z and 9 are the longitudinal perturbation variables. 

EaF^ and EAM are further expanded in equation 6.1-2. 


EAF 

= af 

+ AF 

+ Af 

+ AF 

X 

X 

aero 


^cable 

snubber 

EAF 

z 

= AF + AF 

^aero ^wt 

+ Af 

cable 

+ AF 

snubber 

EAM 

= AM 

+ AM_^ + 

AM + 

Am 

y 

aero 

wt 

cable 

snubber 


The aerodynamic forces and moments, Ap 


AF 


and Am 


A ' z aero’ 

aero aero 

are defined by equations 5. 3-3. 1, 5-3-3*3and 5*3-3-5 respectively. The 
weight contributions are defined by equations 5.2-7 and 5.2-9 and sim- 
plify to equation 6.1-3 with y, 7, 0 = 0. 


AF = W Cos 9 e - M 0 

^wt ° 

AF^ = W Sin 0^9 = x^^ M 0 

wt .. 

AM^ = z^^ (W Cos 0^9 + mx ) + x^^ (W Sin 9^0 + mz) 



The cable forces and moment are obtained from generalized equa- 
tions 5.4-6 and 5.4-8 respectively. 


(6.1-4) 


AF- = AF = AF^ - 

9F^ 

1 X T^ 

To 

AF_ = AF = AF^ + 


3 z T^ 

To. 

AM = z AF^ - X 


y P Tt p 

To 


where according to equations 5. 4-3. 2 and 5. 4-3. 3 

i = 1, 3 


F = T. Cos a. 
To. 1 1 

1 


and 


AF = AT. Cos Of. - TAof. Sin a. 
-4^ i 1 1 1 


^.1-5) 


The steady state direction cosine angle, and cable tension, 
T^ are obtained from the trim analysis. The AT^ and Aa^ are propor- 
tional to the longitudinal perturbation variables. The AT for the 

1 

rear cable is defined by equation 6.1-6 . 

ATj^ = MR + AAj^) (^.1-6) 


The 4 Tjj, for the front cable is a variable in the analysis. 

The constant front cable length requirement is a constraint equation 
which in conjunction with the equations of motion defines a unique 


solution of the variables x, z, 9 and AT. 


F. 


The constraint equation is; 


A£^ + 0 


Since: 


dM., 

1 dx 
SAj?^ 

^ 

2 dx 


X + 


■ X + 


dz 

sAje, 

£ 

9z 


SAje, 




z + 


dAje, 

~W 


^.1-7) 

^. 1 - 8 ) 

(6.1-^ 



The following relation of x = f(z, 9) is determined. 



The coefficients for are defined by subroutine DLGTH des- 
cribed in Section 6.3. Similarly the coefficient of td. are defined 
in Subroutine DCOSLG. 

The cable forces and moment equations are reduced to functions 
of the basic variables x, z, 9 and AT^, via the subroutine MASH for 
each individual cable. The results are then summed in the FXS 
array which in its final form, becomes the cable influence coefficient 
matrix. The initial form of the cable matrix for the front and rear flying 
cable are presented in Figures 6.1 ajid 6,2 respectively. 


The stability characteristic matrix and the expanded form of 
the equations of motion are presented in Tlgure 6.3. A functional 
flow diagram of subroutine LONG is included as Figure 6.4. 

6.2 Subroutine DLGTH 


This subroutine computes the change in length of a cable for 
either the longitudinal or the lateral /directional perturbation 
stability analysis. An index, IDX, determines the mode that is 
being analyzed, and the correct form of tJL is computed. 


The variation of the cable length with respect to the longitud- 
inal variables is defined by the partial derivatives in equation 


6 . 2 - 1 . 



X + 


5Aj6 

dz 


z 





These "partials" are determined from the generalized form for 
Aj^ in equations 5.4-13 and 5.4-11. Equating the lateral/directional 
perturbation variables, y, 0 andY to zero, the equation for Aji is 
reduced to the following simplified form. 

Aj 6 = - Cos X - Cos “2 z + Cos - z^ Cos 9 

The subscripts 1 and 3 refer to the x and z body axis respect- 

ivelv. X and z corresponds to the coordinates of the cable force 
P P 

point of action. In the program, an added subscript, IC, is used 



to define the particular cable being analyzed. 


In the lateral directional mode, the coefficient of the y, 
and 0 variables in the lateral directional fonti of is com- 
puted. 

— y+^Y+^0 ^.2-3) 

The coefficients are again obtained from equations 5 -^-13 
and 5.^-1! j but now x, z, and 9 is assumed zero. The expresssion 
for is reduced to equation 6.2-k. 

= - Cos O'- y + [y Cos of, - x Cos of ] Y + [z Cos o; 

d p Ip 2 p 2 

- y^ Cos ^ 


The subscript 2 refers to the y body axis. 

The expressions in equations 6.2-2 and 6.2-4 can be shown to be 
algebraically equivalent to their corresponding expressions in Beference 1. 
A functional flow diagram is included in Figure 6.3. 

6.3 Subroutine DCOSLG 


This subroutine computes the components of the and 

vectors required by subroutine LONG. Due to the symmetry of the 
longitudinal analysis, is not required. The expressions for 
both Aof^ and are obtained from equation 5.4-18. Expanding this 
expression and letting y, Y, and 0 equal zero, the expressions for 
Acy^ and Acf^ are developed. 


( sin cy \ /cos a cot a \ 

—) ^ * [ — V ) 

-)» 




z sin (y, + X cos 
_P 1 P 


Ao-, 


^COS O'. 

-( 


^ cot (y^ 


z cos O', cot ry^ + x sin 
P 1 3 P 


)..(2p). 


The subscripts 1 or 3 again refer to the x and z axis respect- 
ively. The X and z are the x and z components of the vector from 
P P 

the center of reference to the point of action of the cable force. 
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computes aerodynamics 


computes characteristic 
matrix, CMAT (fig. 6.3 


z:ii 


call root extraction 
routine MATRIX 


CALL PRINTR 
analyzes char, roots 




^RETUM^ 


friction 


CALL FRVT 

compute vertical 
pulley friction 


CALL FRHZ 
compute horiz. 
pulley friction 


FIGURE 6.4 - FLOW CHART - SUBROUTINE LONG 





IC = cable no . , 1 - front upper or front starboard pulley 

2 - front lower or front port -side pulley 

3 - rear upper or reetr starboard pulley 

4 - rear lower or rear port-side pulley 

5 - anti -lift cable 


FIGURE 6.5 - FLOW CHART - SUBROUTINE DLGTH 



7.0 Lateral Directional Stability Analysis 
7.1 Subroutine LAT 


This subroutine computes the forces and moments for the per- 
turbed lateral/directional equations- of motion and extracts the char- 
acteristic roots for the stability analysis. 

The equations of motion, equation are reduced to 7.1-1 

for the lateral/directional analysis. 


ZAF = m y 

y 

ZAM = 01 +V I 
XX xz 

ZAM = - 0 I 

Z Z X z 




where 


ZAF = AF + AF + A W 

y y 

aero 


ZAM = AL + ^ 

X aero cable 


cable 

^ hiGT 


ZAM = AN + + A Ljjprn 

z aero cable ‘'vui 


(7.1-2) 


Y and 0 represent lateral/directional perturbation 


variables : 


The aerodynamic forces and moments, AF , ^^aero 

^aero ^ 

are defined by equations 5.3^*3.2, 5*3-3.^ and 5. 3-3. 6 respectively. 
The generalized weight contributions are defined by equations 
5.2-7 and 5.2-9* The expressions are simplified with x, z and p = 0. 


AWy = [wSin W Cos 0^0 j - m j^XCGy - ZCG0 J 

AL'wgt = Si" ^ Sos 9^0) - njy’] 

AN„™ = XCG ["(W Sin 0 7 + W Cos 0 0) - my 
WGT L ^ o j 

The cable forces and moments are detemined by equations 5.4-6 
and 5-^-8. These equations reduce to equation 7.1-^ for x, z and 0 


zero. 



AFj = 

AF - 7 
2 

Frr, + ‘ < 

^°1 

II 

M 

\ AF„ - 

^3 

z A F, 
P 

AN., = 1 

1 

E 

<3 

X 

y A F, 

I 1 

[ P ^2 

p 


To, 


:J-(*pS^^pS)^i^ 


(7.1-1._) 


='pS)* 


The ajid AF^ components are defined by equations 5 *^-3 *2 


and 5. ^-3. 3; 


F„ = T Cos O', - T bci. Sin a. 
To. i i 1 

1 

AFt = AT^ Cos - T Aot^ Sin 


(5. 4-3. 2) 
(5.4-3.3_) 


The steady state terms, T and Qf^, are determined by the trim 
analysis. The perturbation terms, AT. and are proportional 

to y, '1' and0. In the lateral directional analysis, the rear cable 
tension, AT^ , is assumed proportional to the change in rear cable 
length. ^ 

ATj^ = AKR (AA^ + (7*1-5) 


The x>erturbed front cable tension, ATp , is assumed to be zero in 

i 

the analysis. The perturbed cable length, and cable direction 

cosine, A^., are computed in subroutines DLGTH and DCOSD respectively. 
These routines are described in Sections 6.2 and 7.2. 

For each cable, the force and moment equations are reduced to 
functions of y, 7 and 0 via the subroutine MASH. The results are 
then summed for all cables in the F5CS array. The final FXS array 
is the lateral /directional cable influence matrix. The form of the 
initial matrix prior to using MASH is shown in Figure 7.1. 



Subsequent to computing the cable matrix, the lateral /direct- 
ional stability characteristic matrix is generated. Figure 7.2 
shows the elements of the matrix and the expanded equations of 
motion which it represents. A routine which reduces the matrix 
to a characteristic polynomial and extracts the characteristic 
roots is applied to the matrix at this point. 


A functional flow diagram is presented in Figure 7.3. 

7.2 Subroutine DCOSD . 

This program computes the Aof vector components required by 
subroutine LAT . The vector comixjnents are derived from the 
generalized formulation in equation 5.4-18. 


With X, z, and 0 equated to zero for the lateral /directional 
stability analysis, equation 5.4-18 can be expanded to the following 
form: 


/ Cos a Cot O-N /; 

n =\- 1 


y Sinof + x Cos Qt_ Cot 

£ I E g 




‘"2‘ — 


Sin 0/2 (y Cos Cot 
-y + \— ^ 


( z Cos Qfp Cot - y Cos a Cot 

^ ) 

Oi^ -h X Sin 

f—^ — -h 


z Sin a + y Cos of_ Cbt of- 
£ P d ^ 


10 


Aof, 


/ Cos ^2 / 

— j— A t 


y Cos a. Cot o?- - x Cos Cot o'., 
P 1 3 P 2 ^ 


, z Cos Cot + y Sin or 
J_£ 2 2 -"P 3 


{- 


(7.2-i) 


(7.2-2) 


( 7 . 2 - 3 ) 


The program thus generates an array of nine elements, three 
elements for each of the three vectors. 
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8.0 MODELING SNUBBER EFFECTS 


8.1 SNUBBER SNUBBED EFFECTS 

8.1.1 TRIM EFFECTS 

The effects of the snubbers on model trim are introduced as 
FXSN, FZSN and AMSN into the TRIM subroutine. These terms are 
calculated in subroutine SNTRM. The expressions for modeling 
these effects are identical to those used for the flying cables. 
The direction cosines for each snubber cable are generated in 
subroutine DRSCN with the resulting force and moment contribu- 
tions being defined in terms of these angles. 

The following derivation of one set of direction cosines for 
the upper right cable applies to all snubber cables. See Figure 
11.3 for a definition of terms. 

Calculate linear components from equation reference center to 
snubber tie down at the tunnel wall; 

X = STACR - SNUST 
1 

Z = WLCR - SNUWL 
1 

= - SNUBL 


transforming to body axis: 



= Cos 0 - 


Z^ Sin 0 



X Sin 0 + Z Cos 0 
1 1 



Finding linear components from model tie down point to tunnel 


side wall: 



Xg = Xg + SNUX 

+ SNUY 
B 

= Z„ + SNUZ 


The linear distance is then: 

L = 

The direction cosines are: 

Yx = =‘bA' Vy > Y3/L Y, . 
i*esulting in the angles being: 



O' 

X 


Cos"^ Y > 
^x’ 



Of 

z 



Assuming top and bottom cables to be symmetric with respect 
to the X-Z plane, the following force and moment equations define 
the terms necessary to determine trim. 


K 

= 2 

T 

Cos a 

K 

= 2 

T 

Cos 


X 

up 


up 

X 

u 

\ov 


low 



= 2 

T 

Cos a 

FrY 

= 2 

T., 

Cos 


Z 


up 

z 

z_ 


low 


up 


u 

low 



1 


M = (-SNUZ) + (SNUX) F^, = ( SNLZ) F + ( SNLX) F^ 

up up "^ow low 


or: 


F 

= F 

+ F = FXSN 

X 

X 

up 

^ow 

F 

= F 

+ F = FZSN 

z 

z 

up 

^low 


M = M + M. = AJSCN 
up low 


A flow chart of subroutine SNTRM is shown in Figure 8.1. 



H.1,2 


STABILITY EFFECTS 


The effects of the snubbed snubbers on both longitudinal and 
lateral stability are modeled similar to the rear flying cables. 

These effects are calculated in subroutines LONGSN and LATSN and 
inserted into subroutines LONG and LAT as additional terms ( SNU, 

SNUD) in the polynomial matrix describing the system. Each cable 
is modeled independently, the terms effecting each cable are 
summed up and the results, contained in the SNU array, are com- 
bined with the flying cable effects in the CMAT array. Since the 
theoretical derivation of these terms is similar to the rear fly- 
ing cables, the derivation here will be abbreviated. 

The major difference in the derivation is the calculation of 
the change in tension. For the rear flying cables the cable tension 
change was defined as: 

AT = KAL 

The snubber cables have an added damping effect resulting in 
the following equation: 

AT = KAL + D AL 

The damping tenn is added to the polynomial matrix CMAT through 
the array SNUD. 

Flow charts for subroutines IXDNGSN and LATSN are shown in Figures 
8.2 and 8.3. 

8. 1.2.1 LONGITUDINAL STABILITY EFFECTS 

Due to symmetry the longitudinal effects of the top snubbers 
are modelled simultaneously and similarly the bottom cables can be 
modelled together. Only the top cable derivation will be presented 
here. See Figure 11.3 for a pictorial representation of the snubbers. 

The total force and moment equations from Section 5.0 are: 



5] F = 2 (T + At) Cos (o' + Aff ) - (2T Cos® ) 9 

^ X X z 

E F = 2 (T + AT) Cos (or + Aor ) + (2T Cosof ) 0 

Z Z Z X 

s M = (SNUZ) (-F ) + (SNUX) F 
X z 

Defining perturbation terns: 

AT = K AL + D zii 


and from Section 5.0: 


Aa = 

X 


■P 


-SNUX Sin O' 


ALU 


/-SNUX\^ „ ^ ~| 

“xj 


pin n T r 

^ L ALU / ^ L 


-Cosa Cot Of 
z X 


ALU 




t£X = 
z 


[- 


SNUZ Cos O' Cota , oiiTrrv 
X z /-SNUX 

ALU 




"*-Cos a Cot 0^ 
X z 

ALU 1 


AL = j’-Cos a^j X + j^(- SNUX + (ALU) Cos a^) Cos 

- (-SNUZ + (ALU) Cos a^) Cos j 9 ~ j^Cos a^j z 
These equations are set in a 7 x 7 matrix with the following 


*” — 


— — 

EF 


X 

X 



EF 


z 

z 



EM 


e 

-1 





X 

-1 


Aa 



z 

-1 


AT 

-1 


AL , 


= 0 


form: 



This matrix is reduced to a 3 x 3 matrix in x, z and 9. The first 
order terms are contained in the 3*3 array FTOP and the damping 
terms (second order) are contained in the array SNUD. 

A similar procedure is followed for the effects of the bottom 
cables. The terms for each set of cables are then combined and 
added to the longitudinal stability matrix through the arrays SNU 
and SNUD. 

.1.2.2 LATERAL STABILITY EFFECTS 

The lateral stability effects of the snubbers are modeled for 
each cable individually and the results summed up. The procedure 
is similar to the longitudinal case. Only the top right cable teims 
^111 Le shown here. The effects for the other cables are similar. 

Force and moment equations are: 

F = (T + At) Cos (o' + Aff ) - (T Cos a ) Y + (t Cos a ) 0 

o y y X z 

EN = (-SNUX) F + (SNUY) F 

y X 

EL = (-SNUY) F^ + (SNUZ) F^ 

expanding the equations and dropping the steady state teims : 

EAF = AT Cos a - T Sin o' Ao- - YT Cos or + T Cos a <t> 

y y y y x z 

EAN = (-SNUX) Af + SNUY Fat Cos a - T Sin cx A of 1 
y |_ X X xj 

EAL = (SNUZ) AF - SNUY f AT Cos (x - T Sin a A Qf 1 
y L ^ z zj 

Defining AT, AL, AQJ , A , Ab? : 

x’ y z 

AT = KAje + D a/ 


From Section 5,0: 


hi 


= Cos aj Y + l^(-SNUZ) Cos + (SNUY) Cos j 0 
+ j’(-SNUY) Cos + (SNUX) Cos Y 


'“x - [■ 


(-SNUY) SIN a - (SNUX) Cos 

X • 


ALU 


a Cot a ~\ 
_JL 


+ 


[ 


(-SNUZ) Cos Of Cot Of + SNUY Cos of Cot of ”1 0 


ALU 


Aof = 

y 


f 


(-SNUY) Cos cf Cot Of -(SNUX) Sin 

y y 


ALU 


-[ 


] 

|~ -Cos a Cot Of ~\ 

+ Z ^ 

|_ ALU J 

Of ~| FSin Of ~| 

■] 


y 


(-SNUZ) Sin Of - (SNUY) Cos o' Cot of , . 

' y z/ y I 0 


ALU 


Acf 


■[ 

•[ 


(-SNUY) Cos O' Cot Cf + (SNUX) Cos of Cot cf 

X z y z ' 


ALU 


(-SNUZ) Cos cfy Cot cf^ -(SNUY) Sin 


1 


ALU 


in Of ~| Cos Of Cot of 

£ 0 - ^ ^ 

_ ^ 1_ ALU 


These equations are set in a 8 x 8 matrix with the following form: 


— ^ 


- — 

EF 


y 

y 



SAN 


Y 

SAL 


0 

-1 


Aof 



X 

-1 


Aaf 



y 

-1 


ha 



z 

-1 


AT 

-1 


hi 



L. -J 




FIGURE 8,1 - FLOW CHART - SUBROUTINE SNTRM 





contract matrix 
CALL MASH 

FTOP (3,3) 


= 2 




calculate snubbed 
direction cosines 

CALL DRCSN 



calculate 
coeff. for 
DUM (7, 

^ 

stability 

top 

7) 


contract matrix 
CALL MASH 

FTOP (3,3) 


calculate stability 
coeff. for bottom 

EUM (7,7) 


contract i 
CALL MASH 

FBOT (3,3 

1 

natrix 

) 



combine F 
and FBOT 

SNU (3,3) 
1 

rop 




FIGURE 8.2 - FLOW CHART - SUBROUTINE LONGSN 















caTculate~ 
stability 
coeff, for 



I contract 
I matrix 
' CALL MASH 



repeat for 
each cable 


combine 

results of all 
four cables 


/; 


RETURN 


FIGURE 8.3 - FLOW CHART - SUBROUTINE LATSN 





This matrix is reduced to a 3 x 3 matrix in y, Y and 0. A similar 
procedure is used to derive the contributions of the other three 
cables. The effects of all cables are added ajid introduced in the 
lateral stability matrix as SNU and SNUD. 

8.2 UMSMUBBED SNUBBER EFFECTS 

8.2.1 TRIM EFFECTS 

The effects of the unsnubbed snubbers are modeled similar to 

the snubbed case except for the calculation of the direction cosines 

and the effective spring constant for each cable. The direction 

cosines for each slack cable are calculated in subroutine DRCUSN 

using the data from Table 1. This table contains a record of the true 

angle ( 0 ) between the unsnubbed cable at the model tie down point 
s 

and the tunnel negative X axis vs. dynamic pressure and linear 

distance (L ) between model and tunnel wall tie down points. This 
s 

function is shown graphically below. 



PULLEW IkJ TU^JK/EL 



moO<EL T/E Oo\WU PoikjT 


L = true linear distance between the model tie-down and side wall 
s 

pulley. 


9 = angle made between the slack cable and the tunnel centerline, 

s 

T = tension in cable at tie-down point, 
s 

The direction cosines are derived below for the top right snubber 
in the unsnubbed condition. The other three cables are similarly de- 
rived. Referring to Figure 8.4, the angle the cable makes with the 


a 

X 


Cos"^ (0 ) 
s 


X-axis is: 



The Y and Z axis angles are derived from the theoretical length 
of 8 vector originating at the model tie-down point, intercepting 
the tunnel side wall and running parallel to the force vector shown 
below. 



The Y and Z components of this vector are: 


= SNUWL -(WLCR + SNUZ - SNUX*SIN 9) 
I = SNUBL - (BLCR + SNUY) 

y 

A front view of this vector shows: 


from which: 


K 



tonn^l 


B = Tan~^ i U 
z' y 


The theoretical, length of the vector is then: 


SlOe WALL 


I = ^y/(Sin e^)(Cos B) 


which implies the direction cosines are: 


IJ 

a a Cos ^ 

y 

Y - ^ / 
z z' p 

Of = Cos”^ 
z 


These angles are in the tunnel axis system, converting to model body 
axis: 

0^ = a Cos 6 - a Sin 0 

X z 


Oi 


ot 

y 


Oi = O' Cos 9 + a Sin e 
z X 


Since top and bottom cables are symmetric with respect to the 
X-Z plane, the equations shown in Section 8.1.1 can be used once 
again to describe the longitudinal force and moment contributions to 
trim. 


F = 2 

X 


T Cos a 

S X 


F 

z 


= 2 T Cos ot 
s z 


M = (-SMJX) F + (SNUX) F 
X z 

The tension (T^) as a function of dynamic pressure and length 
(L^is contained in Table 2. 

.2 STABILITY EFFECTS 

The effects of the unsnubbed snubbers on longitudinal and lateral/ 
directional stability are modeled exactly as the snubbed case using 
the direction cosines derived in the previous section. The effective 
spring constant is calculated by obtaining the local slope of the 
change in tension (T^) per change in length (L^) obtained from 
Table 2. 


AT = K AL 

K = at /Al 
s 

The effects on stability of the unsnubbed snubber are calculated in 
LONGSN and LATSN and inserted into subroutines LONG and LAT as addi- 
tional terms (SNU) in the matrices describing the system. 



8. 2. 2.1 LONGITUDINAL STABILITY 


Symmetry allows the top cables to be treated together and sim- 
ilarly the bottom cables. The equations are exactly the same as 
tabulated in Section 8. 1.2.1. The direction cosines derived for 
the slack cable are used in all equations except for the AL equation. 

Since the spring constraint is defined in terms of a change in lin- 
ear distance (L^).the AL must be defined in terms of this length. 
Therefore the snubbed direction cosines are used for this equation. 
There are no damping terms (D AL) associated with the unsnubbed 
cable. 

8.2. 2. 2 LATERAL STABILITY 

These terms are modeled exactly the same as the snubbed case 
except for the changes described in the preceding section. 



input : AEIRO 


SUBROUTINE DRCSN 





input : 

AERO 








calculate direction 
cosines for unsnubbed 
snubbers 

1 






/ 


(RETURN i 



SUBROUTEPfE DRCUSN 


FIGURE 8.6 - FLOW CHART - SUBROUTINE DRCSN, DRCUSN 



9.0 DESCRIPTION OF FEEDBACK MODELS 

The feedback loops for both the longitudinal and lateral /directional 
stability analysis are modeled using additional rows and columns in the 
basic polynanial matrix representation of the dynamics. 

The basic feedback elements for which provisions have been made in the 
program are shown below in block diagram form. 





The equations describing the feedbacks are: 



S 



Ka S 

— 0 6 = 

T^S+1 °r 


K^S 


The basic polynomial matrices are modified as follows to account 
for the feedback control laws. 

Longitudinal: 




Lateral/Directional: 



The longitudinal control law may be evaluated by setting KOBE 

( 8 ) = 5 . 

The directional control law may be evaluated by the setting 
KOBE (9) =5. 

The lateral plus directional control laws may be evaluated by 
setting KOBE (9) =6. If no directional loop is to be evaluated, 
set AEKD (123) and AERO (127) equal to 0. 

If no control loops are to be considered then KOBE {8) = k 
and KOBE (9) =3. 

The basic control laws provided in the program (pitch damping, 
roll damping and yaw damping) can be modified by manually changing 
the definition of the elements in the 7x7 array 'CMAT’ which de- 
fines the linearized system dynamics. The procedure is similar to 
that outlined above. NOTE: The program is limited to 2nd order 

polynomials. Higher order terms can be handled using state vector 
modeling. 



10.0 PULLEY FRICTION 


The assumption is made that the pulley- cable friction is made 
up of two parts, rolling friction and coulomb friction. Both 
rolling and coulomb friction combine to create a change in cable 
tension around the pulley. 

The rolling friction is treated as a linear term and the cou- 
lomb friction is linearized using a describing function technique 
to be described in this section. The terms are calculated in sub- 
routine FRICT and added to the appropriate polynomial matrix through 
array FRIG. 

10.1 ROLLING FRICTION 


Polling friction is described by the rotational damping co- 
efficient, (ft-#/RPS). The moment transmitted to the model is 
then : ^ o 

Mp =C 9 N (lO.l-l) 

Tr mp p p V ^ 

o 


where 9 is the piLLley rotational speed and N is the total normal 

P 

force acting on the pulley. 





10.2 


COULOMB FRICTION 


Coulomb friction is by definition a non-linear effect where 
the friction force is of constant magnitude and is always in such 
a direction as to resist the relative motion. This non-linear 
effect can be replaced by an 'equivalent’ linear effect employing 
the following reasoning. 

First apply a sinusoidal input in 0 ^ and look at the moment 
output due to the coulomb friction. 



The input can be modeled as: 

I(t) =9 SIN wt 
P 

The output can be modeled as a Fourier series as follows: 

M(t) = hsL^/rr 1 ^ SIN wt + I/3 SIN 3 wt + 1/5 SIN 5 wt j 

In terms of transfer functions we then have: 


i(t)i 


kt) 


Mft) 


or: 

SIN wtj G(t) = 4 a^/n SIN wt + I/3 SIN 3 wt + I/5 SIN 5 wt + 

The equivalent linear transfer function is defined as the 
ratio of the fundamental mode of the output to the input. 

G(t) = 4 a /rr SIN wt/§p SIN wt = 4 a /n 9 
c' ^ ^ c p 

We now have a linear equivalent of the non-linear coulomb 
friction which is: 

4 a . 

M = — ^ 0 
Pc ^ P 


(10.2-1) 



is the static opposing force which is a function of wrap 
angle and normal force. This relationship is empirical and will 
not be defined in the program, a^ will be input as a constant 
(aero ( 96 )) which the user will have to determine. 


Combining rolling and coulomb friction, we have the follow- 
ing expression for the total moment. 


"p = [\ "p] ®P * [•%/"] % (10.2-2) 

Following the reasoning presented by R. M. Bennett in his 
write-up, 'Comment On Mount System Damping Based On Pulley Rolling 
Friction,' the total moment transmitted to the model (M ) creates 
an unbalance in cable tension around the pulley. 



7 ^ 


assuming pulley inertia to be negligible, a moment balance produces: 


iT . Np/rJ 0^^ (l0.2-3) 

The resulting forces and moments on the model can now be derived 
using Bennett's equations. 

10 . 3 PULLEY FRICTION EFFECTS O N LONGITUDIMAL AND LATERAL/DIRECTIONAL STABILITY 

Only vertical pulleys will effect longitudinal stability. 

Derivations for both front and rear vertical pulleys follow. 



T+6T, + ATz. 



Front Pulley 


taking moments around top pulley; 
EM = 0 


AT + M = 0 
^ P 

P ^ 


AT - 0^ N 9 - (l|a /it) 9 =0 

Tp Mp p p ' c' ^ p 


AT = /o N/r\e + (ka /nr \ 9 

^ Mp p' pj p ^ pj p 


the pulley rolling in terms of cable length is: 


= - HA-^/r 


A-tp/i 


- At/i 


- 1 %^ Vp') (- * (‘“‘c/"--p") (-“l) 




a similar approach with the bottom cables yields: 


“f, = (\ V'-p') (''^2) * H 


' AT = at 

• FRONT ^ F. 


1 * ’ (\ V''P^) > 


(10.3-1) 


(10.3-2) 


(10.3-3) 



REAR PULLEY 



EM = 0 -AT +M=0 

’"p P 

AT = M /r = -Cjy N e /r - 4a 9 /nr 
R p' p P p' P c p^ p 

9 = AL_/r 9 = 

Pj 3 P Pj 3 P 


AT- = /-C/ N /r 
3 ^ Mp P^ P 


“4 = [\ V"\) ^ 

= ("m^ V%) ('^ - “3) 


“»c/V )(S - 


(10.3-5) 

(10.3-6) 

(10.3-7) 


At. 


Since the tension ^^pear E°ing to act at either 

the top or the bottom pulley (depending on the direction of motion); 
6ind since the aims and direction cosine are inherently different, 
the effect of these friction contributions is discontinuous about 
the trim for + perturbations in x, z and 0. To eliminate the diffi- 
culty, an average aim and direction cosine in the position quadrant 
is assumed for the action of the forces and moments. 


The average direction cosine angles for the front vertical pulleys 


are: 


"x " ^"21 ■ "^11^/^ "2 * (10.3-8) 

The average arms for the front vertical pulleys are: 

L " < 5 x - (10.3-9) 


The corresponding set for the rear vertical pulley is: 



I 

X 


(10.3-10) 

(10.3-11) 



= (\z ■ 


The friction contribution to the , AF and AM for a front 

X z 

and rear verticaJ-ly configured pulley can be determined. 


^x ^'^FRONT ^'^REAR “x 

R 

' “front * “rear “S 0. 

r p 

AM = 2M + AF't -AFi? 
y P X z 

SM = M + M 

p Pp Pp, 

% ' V'’pj * ('“c/%)(''<S - ''^1) 

\ ' (\ “ ^'■p) ■ “3) * - “3 ) 


(10.3-12) 

(10.3-13) 

( 10 . 3 - 14 ) 


If either front or rear pulleys are horizontal, there are no 
friction effects modeled for longitudinal analysis. 

Similar expressions caui be defined for the front and rear ten- 
sions for the lateral /directional analysis. In this case, however, 
the horizontal pulley configurations are the prime contributor to 
the perturbation dynamics. The horizontal piolley in the trim condi- 
tion are symmetric about the x-z plane. Thus, the averaging for 
the direction cosine and arms process required in the longitudinal 
analyses are not required in the lateral ansilysis. 



AF = AT COS + AT„ COS 
y F 2 R 2 


R 


AL = E yF - zF + L 
z y p 


( 10 . 3 - 15 ) 


AN = S xF - yF + N 
y X p 


C N 

where 2 in p . . 4a 

L = E ^ (At_ - At^^) 


P T 2 

n=l r 
F+R P 


n “I2n' • 2 

nr 
P 


n 


2 . . ““c 

"p “ ^ "r-5 <“n - Sn' 


n=l r 
F+R J 


rrr 


Flow diagrams for subroutines FRICT, FRVT, FRHZ are shown in Figures 
10.1 through 10 . 3 . Subroutine FRKT contains the logic determining which 
configuration is to be analyzed while subroutines FRVT and FRHZ calculate 
the friction effects for vertical ar^ horizontal configurations respect- 
ively. 




Figure 10.1 - FLOW DIAGRAM - SUBROUTINE FRICT 












FIGURE 10.2 - FLOW CHART - SUBROUTINE FRVT 
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FIGURE 10.3 - flow DIAGRAM - SUBROUTINE FRHZ 




11.0 


INPUT DATA 


The foimat for input data is most easily explained by repro- 
ducing the 'READ' statements as they appear in the program. 


READ (IR, 1) (TITLE (l), I = 1 , 20) 

( 1 ) 

1 POmAT (20Ak) 


READ (IR, 2) (KDDE(I), I = 1, l 6 

( 2 ) 

2 FORMAT ( 1515 ) 


Then either 3A or 3D! The value of KODE ( 7 ) will determine 
which input to use. 

READ (IR, 3 ) (AERO (l), 1 = 1 , 36 ) 

(3A) 

CALL TABINl (l, 36 ) (See Appendix A) 

(3B) 

Continuing : 


READ (IR, 3) (AERO (l), I = U4, 59) 

(4) 

READ (IR, 3) (AERC (I), I = 66 , I 30 ) 

(5) 

3 FORMAT (6 EI 2 . 5 ) 


If unsnubbed snubber data is to be read in (determined by KODE (12)) 
the following statement applies. 

CALL TABIN (l, 2) (See Appendix A) 


If unsnubbed data is not to be read in computations begin. 

After completion of the first run the following 
ments Initialize emother run. 

'READ' state- 

READ (IR, 1 ) (TITLE (l), 1=1, 20) 

( 6 ) 

READ (IR, 2) (KODE (l), 1=1, I 6 ) 

(7) 


READ (IR, 3) I, VALUE 

I = element in the 'AERO* array to be changed. 


VALUE = new value of the element 


NOTE; If I > 1 this 'READ' statement is repeated. 

If I = 0 the program begins computation. 

All succeeding cases follow the same foimat. 

A description of the aforementioned arrays follows. 

ARRAY DESCRIPTION 

TITLE Alpha- niimeric array containing title 

describing the run to be made. 

KODE Array containing various program option 

parameters. 

AERO Array containing all the input data pertain- 

ing to model, mount system and tunnel condi- 
tions. 

11.1 KODE, AERO Description 

A description of each element in the 'KODE' and 'AERO' array 

follows ; 


NAME 

KODE (1) 
KODE (2) 


KODE (3) 


KODE (4) 
KODE (5) 


KODE (6) 


VALUE DESCRIPTION 

Run number 

-1 Calculate longitudinal stability only 

0 Calculate lateral/directional stability only 

+1 Calculate both longitudinal 8md lateral/ 

directional stability 

0 No root locus 

+1 Do TOot locus 

Element in 'AERO' array to be varied for root 
locus 

0 Basic printout 

+1 Basic printout plus various test parameters 

+1 Front cable vertical - rear cable horizontal 

+2 Front cable horizontal - rear cable vertical 

+3 Front and rear cable vertical 



NAME 


VALUE 


DESCRIPTION 



+4 

Front and rear cable horizontal 

KODE ( 7 ) 

+ 1 ' 

Aero data to be input in table foim 


0 

Aero data to input at specific mach number 

KOBE ( 8 ) 

+4 

Longitudinal matrix with no stability aug- 
mentation 


+5 

Longitudinal matrix with stability aug- 
mentation 

KODE ( 9 ) 

+3 

Lateral/directional matrix, no stability 
augmentation 



Lateral/directionaJ. matrix, with yaw stab- 
ility augmentation 


+5 

Lateral/directional matrix, with roll ^d 
yaw stability augmentation 

KODE ( 10 ) 

0 

No snubber 


+1 

Analyze snubber in unsnubbed condition 


42 

Analyze snubber in snubbed condition 

KODE (11) 

0 

No anti -lift cable 


4-1 

Anti-lift cable in 

KODE (12) 

0 

No unsnubbed snubber data input 


4-1 

Unsnubbed snubber data will be read in 


UNITS 


LABEL 


DESCRIPTION 


AERO (l) 

l/f^./sec. 

CDU 

AERO (2) 

l/ft. /sec. 

CLU 

AERO (3) 

l/ft./sec. 

CMU 

AERO (4) 

l/rad 

CDA 

AERO (5) 

l/rad 

CLA 

AERO (6) 

l/rad 

CMA 

AERO (7) 

l/rad/sec 

CDQ 

AERO (8) 

l/rad/sec 

CLQ 

'AERO (9) 

l/rad/sec 

CMQ 

AERO (10) 

N.D. 

CDO 

AERO (11) 

N.D. 

CLO 

AERO (12) 

N.D. 

CMO 

AERO (13) 

l/rad 

CDDE 

AERO l4) 

l/rad 

CLDE 

AERO ( 15 ) 

l/rad 

CMDE 

AERO ( 16 ) 

l/rad/sec 

CDAD 

AERO ( 17 ) 

l/rad/sec 

CLAD 

AERO ( 18 ) 

l/rad/sec 

CMU) 

AERO ( 19 ) 

l/rad/sec 

CYB 

AERO (20) 

l/rad 

CLB 

AERO ( 21 ) 

l/rad 

CNB 

AERO (22) 

l/raxj/sec 

CYP 

AERO ( 23 ) 

l/rad/sec 

CLP 

AERO (24) 

l/rad/sec 

CNP 

AERO ( 25 ) 

l/rad/sec 

CYR 

AERO ( 26 ) 

l/rad/sec 

CLR 


SCp/Mu/V^) 

T I 

dCjj/a(u/Vo) 

- Lt ^ 

1 


M LI J 




M 


Qr J 

c 

m 

^Cp/B(qC/2Vo) 

L. ur j 

‘s' 

?»Cj_/d(qC/2V^) 

= 

"l 

9C^/a(qC/2V^) 

L a - 

Drag coefficient at or » 0 

s 


z 0 - 

Lift coefficient at of = 0 

Cl 


= 0 = 

Pitching moment at o' = 0 

c 

m 


. 0 . 


S'] 

dC /?)(fi ) 
m' e 

-V J 

?)Cjj/s(^/2Vo) 



- “ -1 
^L. 

^CjM'cC/2V^) 

C 

m* 


. LT_ 

C 

.^bJ 

c)C^/c)(b) 

"'J 


C 

.''b- 

^y/?^(pb/2V^) 

c 

^p- 

9C/d(pb/2V^) 1 

T) 

SCys(pb/2V^) 1 

: F z 

c 

n 

: P- 

aCy/a(rb/2v^) [ 

rt 

ry„- 

8C^/S(rb/2V„) [c. 

J 


UNITS 


LABEL 


DESCRIPTION 


AERO 

(27) 

l/rad/sec 

CNR 

3cya(rt/2v^) 

[\] 


AERO 

( 28 ) 

l/rad 

CYDR 

9Cy/s(Sj.) 



AERO 

(29) 

l/rad 

CLDR 

6 j.) 



AERO 

(30) 

l/rad 

CNDR 


=c 


AERO 

(31) 

l/rad 

CIDA 


=c 


AERO 

(32) 

l/rad 

CLDA 

acj/a( 8 j 

1 


AERO 

(33) 

l/rad 

CNDA 

aCn/a( 6 ^) 

C 


AERO 

(3ii) 

l/rad 

CYDS 

aCy/a(53> 

re H 
. ^6 


AERO 

(35) 

l/rad 

CLDS 

8 C,/a( 6 ^) 



AERO 

(36) 

l/rad 

CNDS 

acya( S 3 ) 

L 0 . 

[c "1 

"a 


AERO 

ihk) 

in. 

XREF*- 

-g - 

Distance from aerodynamic ref. center 





to the equation ref. center along the 





X body axis 



AERO 

(45) 

in. 

ZREF 

Distance from aerodynamic ref. center 
to the equation ref. center along the 





Z body axis 



AERO 

(46) 

in. 

XCG 

Distance from model mass & 

inertia 





ref. center to the equation ref. 
center along the X body axis 


AERO 

(47) 

in. 

ZCG 

Disteuice from model mass & 

inertia 





ref. center to the equation ref. 
center along the Z body axis 


AERO 

(48) 


AMACH 

Tunnel mach number 



AERO 

(49) 

ft /sec 

VO 

Tunnel velocity 



AERO 

(50) 

slugs 

AM 

Model mass 



AERO 

(51) 

slug/ft^ 

RHO 

Tunnel density 




UNITS 


LABEL 


DESCRIPTION 


AERO (52) 

lbs 

WT 

aero ( 53 ) 

ft 

B 

AERO ( 5 lt) 

ft 

GEAR 

AERO (55) 

ft" 

SW 

AERO (56) 

slug/ft^ 

XIXZ 

AERO (57) 

slug/ft^ 

XIXX 

AERO (58) 

slug/ft^ 

YIYY 

AERO (59) 

slug/ft^ 

ZIZZ 

AERO ( 66 ) 

in. 

WLUF 

AERO (67) 

in. 

WLLF 

AERO ( 68 ) 

in. 

WLUR 

AERO (69) 

in. 

WLLR 

AERO (70) 

in. 

WLHF 

AERO (71) 

in. 

WLHR 

AERO (72) 

in. 

STAF 

AERO (73) 

in 

STAR 

AERO ( 7 h) 

in 

BLHF 


Mjdel weight 

Model reference span 

Model reference chord 

Model reference wing area 

Model cross product of inertia 

Model roll inertia ( > body 
axis at C.G. 

Model pitch inertia (l ), body 

yy 

axis at C.G. 

Model yaw inertia (I ), body 

zz 

axis at C.G. 

Water line-upper front cable 
tie-down point (fr. vert.) 

Water line-lower front cable 
tie^-down point (ft. vert.) 

Water line-upper rear cable 
tie-down point (rr. vert.) 

Water line-lower rear cable 
tie-down point (rr. vert.) 

Water* line-horizontal front cable 
tie-down point (ft. hor. ) 

Water line-horizontal rear cable 
tie-down point ( rr. hor. ) 

Station- front cable tie-down 
point ( fr. vert, or hor. ) 

Station- rear cable tie-down 
point ( rr. vert, or hor.) 

Butt line-horizontal front cable 
tie-down point ( fr. hor.) 


UNITS 


LABEL 


DESCRIPTION 


AERO ( 75 ) 

in. 

BLHR 

AERO (76) 

in. 

WLCR 

AERO (77) 

in. 

STACR 

AERO (78) 

in. 

BLCR 

AERO (79) 

in. 

EF*-x- 

AERO (80) 

in. 

ER 

AERO (81) 

in. 

AF 

AERO ( 82 ) 

in. 

AR 

AERO (83) 

in. 

HUGE 

AERO ( 84 ) 

in. 

HLCF 

AERO (85) 

in. 

HUCR 

AERO (86) 

in. 

HLCR 

AERO (87) 

in. 

DCF 

AERO (88) 

in. 

DCR 


Butt line-horizontal rear cable 
tie-down point (rr. hor. ) 

Water line-equation reference point 

Station - equation reference point 

Butt line-equation reference point 

Distance along X body axis from 
ref. center to vertical front 
pulley 

Distance along X body axis from 
ref. center to vertical rear 
pulley 

Distance along X body axis from 
ref. center to horizontal front 
pulley 

Distance along X body axis from 
ref. center to horizontal rear 
pulley 

Distance along Z body axis from 
ref. center to upper front pulley 

Distance along Z body axis from 
ref. center to lower front pulley 

Distance along Z body axis from 
ref. center to upper rear pulley 

Distance along Z body axis from 
ref. center to lower rear pulley 

Distance along Y body axis from 
ref, center to horizontal front 
pulley 

Distance along Y body axis from 
ref. center to horizontal rear 
pulley 


UNITS 


LABEL 


DESCRIPTION 


AERO 

(89) 


blank 

AERO 

(90) 

in 

RVF 

AERO 

(91) 

in 

RHF 

AERO 

(92) 

in 

RVR 

AERO 

(93) 

in 

RHR 

AERO 

(94) 

lbs 

TRO 

AERO 

(95) 

Ibs/in 

AKR 

AERO 

(96) 

ft-#/rad 

OOU 

AERO 

(97) 

in 

STLTT 

AERO 

(98) 

in 

WLLTT 

AERO 

(99) 

lbs 

TLFTO 

AERO 

(100) 

Ibs/in 

AKLFT 

AERO 

(101) 


blank 

AERO 

(102) 

in 

ALTX* 

AERO 

(103) 

in 

ALTZ 

AERO 

(104) 

ft-#/RPS 

CMP 

AERO 

(105) 

in 

SNUX*** 

AERO 

(106) 

in 

SNUY 

AERO 

(107) 

in 

SNUZ 


Radius of vertical front pulley 

Radius of horizontal front pulley 

Radius of vertical rear pulley 

Radius of horizontal rear pulley 

Rear cable tension 

Rear cable spring constant 

Pulley Coulomb friction ( a^) 

Station - lift cable tie-down 
point 

Water line - lift cable tie-down 
point 

Lift cable tension 

Lift cable spring constant 


Distance along X body axis from 
lift cable attachment point to 
the equation reference center 

Distance along Z body axis from 
lift cable attachment point to the 
equation reference center 

Pulley rolling friction coefficient 

Distance along X body axis from 
model upper attachment point to 
the equation reference center 

Distance along Y body axis from 
model upper snubber attachment point 
to the equation reference center 

Distance along Z body axis from 
model upper snubber attachment 
point to the equation reference 
center 




UNITS 

LABEL 

DESCRIPTION 

AERO (106) 

in 

SNLX 

Distajice along X body axis from 
model lower snubber attachment 
point to the equation reference 
center 

AERO (109) 

in 

SNLY 

Distance along Y body axis from 
model lower snubber attachment 
point to the equation reference 
center 

AERO (110) 

in 

SNLZ 

Distance along Z body axis from 
model lower snubber attachment 
point to the equation reference 
center 

AERO (ill) 

in 

SNUST 

Station - upper snubber tie-down 
ixjint 

AERO ( 112 ) 

in 

SNUWL 

Water line - upper snubber tie-down 
point 

AERO (113) 

in 

SNUBL 

Butt line - upper snubber tie- 
down point 

AERO ( 114 ) 

in 

SNLST 

Station - lower snubber tie-down 
point 

AERO (115) 

in 

SNLWL 

Water line - lower snubber tie- 
down point 

AERO (116) 

in 

SNLBL 

Butt line - lower snubber tie- 
dow n point 

AERO (117) 

lbs 

TUSHD 

Upper snubber, snubbed tension 

AERO (118) 

lbs 

TLSND 

Lower snubber, snubbed tension 

AERO (119) 

Ibs/in 

AKSNU , 

Upper snubber, snubbed spring con- 
stant 

AERO (120) 

Ibs/in 

AKSNL 

Lower snubber, snubbed spring 


constant 


AERO ( 121 ) Ibs/in/sec 


ADSNU 


Upper snubber, snubbed damping 
constant 



UNITS 


LABEL 


DESCRIPTION 


AERO 

(122) 

Ibs/in/sec 

ADSNL 

Lower snubber, snubbed damping 
constant 

AERO 

(123) 

rad/rad/sec 

AKSY 

Feedback gain - yaw rate to rudder 

AERO 

(124) 

rad/rad/sec 

AKPHI 

Feedback gain - roll rate to aileron 

AERO 

(125) 

rad/rad/sec 

AKTHE 

Feedback gain - pitch rate to 
elevator 

AERO 

(126) 

blank 



AERO 

(127) 

sec. 

TISY 

Time constant for lag on yaw rate 
feedback 

AERO 

(128) 

sec. 

T2PHI 

Time constant for lag on roll rate 
feedback 

AERO 

(129) 

sec. 

T3THE 

Time constant for lag on pitch rate 
feedback 

AERO 

(130) 

blsink 




* See Figure 11.1 for pictorial 
** See Figure 11.2 for pictorial 
*** See Figure 11.3 for pictorial 


representation of various reference centers 
representation of pulley geometry 
representation of snubber cable geometry 



11.2 


TABLE INPUT 


If the aero data and snubber data are to be read in table format, 
the following discussion applies. 

The first 36 tables contain the aero deilvatives in stability 
axis vs. mach number. The order is the same as AERO (l) through 
AERO (36). The units for each derivative are also the same as 
AERO (1) through AERO (36 ). The table input format is shown in 
Appendix A. This data is read in under TABINl, 

The unsnubbed snubber data is contained in Tables 1 and 2. 

Table 1 contains cable tension (lbs) vs. dynamic pressure (psf) 
and linear distance (in) between model tie-down point and tunnel 
side wall. Table 2 contains cable angle (rad) vs. dynamic press- 
ure (psf) and linear distance (in) between model tie-down point 
eind tunnel side wall. The tensions ‘and angles mentioned here are 
described in detail in section 8.0. The table input format is 
shown in Appendix A, This data is read in under TABIN. 
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APPENDIX A 


A-1 TABIN. TABINl 

If data is to be input in table form, subroutine TABIN is used. 
When reading aero data the first independent variable is mach 
number. When reading unsnubbed snubber data the first inde- 
pendent variable is dynamic pressure (psf) and the second 

independent variable is length (L ) in inches. 

s 

Restrictions: 1. The tabular values for the indei)endent variables 

must be in algebraically increasing order. 

2. The independent variables and functional values of 
the table must; 

a) Be single precision mmibers less than 99999^9. 

b) Have a maximum of 7 significant figures if 
positive. 

c) Have a maximum of 6 significant figures if 
negative. 

A maximum of 99 cards is allowed for each table. 

Usage: A. Tables are prepared according to the form on the 

following page. Variable noted there are; 

K = table number - any positive fixed point number. 

LI = Number of tabular values of the first independ- 
ent variable (x). 

L2 = Number of tabular values of the second inde- 
pendent variable (y). 

Seq. no. = sequence number of card within a table 
beginning with 0 for the first card, 1 for the 
second, etc. 

Z = Value of the third independent variable (z). 

A separate table is needed for each tabular 
value of Z. 

F(i,j) = functional value for x., y., and Z. 

The last card for every set of tables read in MUST 

BE BLANK. 



For second 9 x-values For first 9 x-values 


CARD FORMAT FOR EACH TABLE 



Ll 

— 

12 


Seq. 

No. 

Coluinn 
■ *1 

9-12 

13-14 15-16 7I-7Z 



*2 

*3 

*4 

*5 



*8 

*9 

— 

Seq. 

No. 





f(2,l) 

f(3,l) 

f(4,l) 

m 


f(7,l) 

f(8,l) 

f(9,l) 

Seq. 

No. 

m' 

# 

# 


1^12 

f(l, f(2, f(3, f(4, f(5, f(6, f(7, f(8, f(9, Seq. 
12 ) 12 ) 12 ) L2) L2) 12) 12) L2) L2) No. 





^0 

^11 

^2 

*13 

^4 

*15 


*17 

^8 

Seq. 

No. 


o 

f(io, 

1) 

f(ll, 

1) 

f(l2, 

1) 

f(l3, 

1) 

f(l4, 

1 ) 

f(l5, 

1) 

f(l6, 

1) 

f(l7, 

1) 

f(l8, 

1) 

Seq. 

No. 

9 \ 

S 



m 

f(ll, 

L2) 

f(l3, 

m. 

f(l3, 

L2) 

f(l4, 

L2) 

f(l5, 

L2) 

f(l6, 

L2) 

f(l7, 

L2) 

f(i8. 

L2) 

Seq. 

No. 

Col. 1-7 8-l4 15-21 22-28 29-35 36-42 43-49 50-56 57-63 64-70 71-72 

Additional, x values are similarly handled. 

^ BLANK CARD - last in set of data read in at one time. 







































B. Calling sequence: 


CALL TABIN (NUMTBL, IZ, NG) 

NUMEBL = Number of the first table to be read in. 

=» 1 for the first set of tables read in 
on a job. 

IZ = ^feJclmum number of tables in storage at 
one time. 

NG => error returh - set equal to: 

0 - tables are read in successfully 

1 - error in loading tables. 

C. COMMDN statement to be made in the calling program: 
COMMDN ZZZ(n) 

where ZZZ is a dtunmy name, n is computed as follows: 

IZ 

n = 3IZ + I] (LI +1) (L2. +1) 
i+1 ^ ^ 

ZZZ must be the first array stored in blank COMMDN. 

A-2 STINT, STINTl 

Subroutine STINT is a linear interpolation routine used to 
gather data from the tables. 

PuipxDse: To look up in a table and interpolate functions of 

1, 2, or 3 variables. 

Restrictions; 1. CALL TABIN to read in tables (see TABIN write-up). 

2. Extrapolation is not performed for arguments off 
the tables. 

Method:* x = ARGl x^<x<3^ x^,x^- consecutive 

tabular values 

y = ARG2 y^ < X < y^ ^1 ~ consecutive 

tabular values 

z = ARG3 z^ < z < z^ z^, z^ - tabular values for 

consecutive tables 

f(i,j) functional value at (x^^, y^) 



Usa^e: 


(y^^-y) [<v x) f (0,0) - (Xq-x) f (l,0)J 
* (yi-y„) (v='o' ^ 

(yy) [(x^-x) f (0,1) - (x^-x) f (1, l)j 
■ 'yi-yo' 'W 

Single table interpolation 


FCT = f(l,0) - 




(f(l,0)-f(0,0)) 


V*o 

Double table interpolation 
FCT = A 

Triple table interpolation 

A is found for the table (A^) and the z^ table (A^). 


z, -z 


FCT 


1 o 


CALL STINT (ARGl, ARCS, ARG3, MTNTBL, MAXTBL, FCT, NG) 

ARGl =s floating point value used as search argument 1 

ARG2 c= floating point value used as search argument 2 

ARG3 = floating point value used as search argument 3 

MINTBL = lower bound of table position number. 

MAXTBL = upper bound of table position number. 

FCT = floating point variable which is returned 
with the result of the interpolation. 

NG = Error indicator 

= 1 - error in loading tables (set by TABIN) 

= 2 - error in calling sequence or machine error 

= 3 - argument not in domain of table 

= 4 - argument(s) are within tables but function 

is discontinuous or non-existent. 



If there is no error, the last value of NG 
remains in storage. NG should be interrogated 
after each return from STINT. If NG ^ 0, set 
NG to 0 after taking appropriate error control 
action and before calling STINT again. 

For single table Interpolation set ARG2 = 0, and ARG3 = 0 

For double table interpolation set ARG3 = 0. 

For triple table interpolation 

Normally at least 2 tables are needed. The 
tables must have consecutive i»sition numbers. 

If ARG3 is exactly equal to the tabular value 
of z (third independent variable), only one 
table is needed. 

A-3 MASH 

Subroutine MASH is used to reduce large matrices to smaller 
ones. It only reduces tenns of the same order. 

A-4 matrix, PRBMl, PQFBI 

Subroutines MATRIX, PRBMl, and PQFBI are used to obtain the eigen- 
values of the polynomial matrices defined in subroutines LCXTG ajid 
LAT. Subroutine MATRIX takes the polynomial matrix and derives 
the characteristic polynomial for that matrix. The roots of the 
characteristic polynomial are then established in subroutines 
PRBMl and PQFBI. PRBMl and PQFBI are called from MATRIX. The di- 
mension statements for this routine are presently set up for a 
7x7 matrix. If in the future this is to be changed the following 
definiticais will be necessary. 

Call MATRIX (A, N, ROOTS, k4a, IER) 

A: Input matrix. Dimension = (N, N, 3) the first index 

refers to the row, second to the column, and third to the 
polynomial coefficient with A (i, J, l) = constant term, 
A(i, j, z) = linear term, etc. 


N: 


The actual size of the input matrix. 



ROOTS: A complex array. Dimension = 29 

k 4A: Equals the number of roots generated. 

lER: Contains error code message. See listing 

of PQFBl and PRBMl for description. 

The routine is limited to second order polynomials. That is, each 
polynomials represented in the A array can be no greater than 
second order. 



AEPENDIX B 


A sample listing of input data is included as an example. The 
set of input cards listed below is the set provided with the accompany- 
ing deck. 

Referring to the listing, Case 1 is one in which a root locus is 
done with the rear cable tension being the parameter varied. Both 
longitudinal and lateral stability calculations are made. The cable 
configuration is front vertical rear horizontal with no snubber effects. 
Case 2 is the same variation in rear cable tension with the unsnubbed 

snubber effects included. Case 3 is one in which the veLLues for C^ 

^Of 

and C are changed and only longitudinal stability effects are cal- 
culat^. In Case 4, C,. and C are put back to their original values 

^ ij m 

a a 

and the front pulleys are changed to the horizontal configuration. 

The output corresponding to this input data is contained in APPENDIX C. 



FILED CABLE DATA PI GPUMMAN DATA SYSTEM 

EST DATA LPC 


1 

1 

1 94 

0 

1 0 

4 

3 0 0 

1 


‘ 

" ' ■ 

0. 


0. 

0. 

6.26 

-.81 


0 • 


0. 


-8. 

.018 

• 105 

.035 


0 • 




-1.5 

0. 

0. 

0 . 


^T3 


- . 0 35 


. Ill 

0. 

“ -.19 

-.0 1 


0 • 


.0 50 


-.092 














' - ' - - 







4 30. 


4#35 


•00039 


140. 

9.16 

1 .4 

1 1 .5 


-•1 1 


1.8 


14. 

14. 







-59. 




- 



10. 


285. 



80. 


175. 




26.4 




8 • 

8.4 


8 • 4 









• 88 


177. 


- . 96 

.88 

140. 

3. 




3 • 


• 05“ 

2. 

■ 3. ■ ■ 

2. 


2. 


3. 


2. 

180. 

96. 

72. 


180. 


-96 . 


72. 

80. 

80. 

50. 


90 • 




o* 





0 

1 

4 3 







~ ~xr 

xr~ 

20. 

lOO. 

200. 


■ — - ■ • ■ 

- 

1 

0 

0 

20 . 

60. 

. 

o 

oc 




2 

•00, 

c 

25. 

65. 

85. 




3 

0 0. 

c 

30 • 

70. 

90. 




4 


2 

4 3 







0 

0 

30. 

100. 

200. 




1 

0 

1 .57 

1.20 

1 .00 

. 60 


' ■ — 


2 

100 . 

1 .57 

1 . 1 0 

• 90 

.40 




3 

200 • 

1 .57 

1 .00 

.80 

.20 




4 

— , — 




8LANK CAPO 


...... .... 

- 



TEST DATA WNSr^UPBED SNUBBER 


21 1 94 01043100 

BLANK CAPO 

TEST DATA change CL AND CM ALPHA 
3-1 0 0 0 1 04 3 00 0 

6 -1,3 

BLANK CAPO 

TFBT data Foont pulley HORIZONTAL 
41 0004043000 

5 6.2 

6 - . B 

70 0 

74 BO. 

B1 26,4 

87 8,4 

91 ,B8 


BLANK CAPO 



APPENDIX C 


Contained in this Appendix is the program output 
corresponding to the input list shown in Appendix B. 
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APPENDIX D 


Contained in this Appendix is a program listing. The subroutines as they appear in the 
listing are itemized below: 


EXEC ROUTINE 
SUBROUTINE RUTLOC 
SUBROUTINE TRANS 
SUBROUTINE TRANl 
SUBROUTINE LATSN 
SUBROUTINE TRIM 
SUBROUTINE EQU 
SUBROUTINE FPLYV 
SUBROUTINE RPLYH 
SUBROUTINE DLGTH 
SUBROUTINE DCOSLG 
SUBROUTINE LCWG 
SUBROUTINE PRINTR 
SUBROUTINE MASH 
SUBROUTINE LAT 
SUBROUTINE DCOSD 
SUBROUTINE SNTRM 
SUBROUTINE LCWGSN 
SUBROUTINE DRCSN 
SUBROUTINE DRCUSN 
SUBROUTINE RITE 
SUBROUTINE STINT 
SUBROUTINE TABIN 
SUBROUTINE STINTl 
SUBROUTINE TABINl 
SUBROUTINE FRICT 
SUBROUTINE FRVT 
SUBROUTINE FRHZ 
SUBROUTINE MATRIX 
SUBROJTINE POLADD 
SUBROUTINE POLSUB 
SUBROUTINE POLMPY 
SUBROUTINE MATMPY 
SUBROUTINE TRACE 
SUBROUTINE COMPBI 


'appendix d (cont.) 


SUBROUTINE ENVERT 
SUBROUTINE SCALER 
SUBROUTINE E<^IL 
SUBROUTINE PRBMl 
SUBROUTINE PQFBl 
SUBROUTINE ENVERT 
SUBROUTINE SCALER 
SUBROUTINE EQUIL 
SUBROUTINE PRBMl 
SUBROUTINE PQFBl 



cvi ro 


FILE CABLE 


FORTRAN PI 


G F C A A N 


DATA 


SYSTEMS 


EXEC ROUTINE BEGINS HERE 

COMMON /OA T/AEPO( 150)tAEP0P(5 
COMMON /SNUBH/SNU{ 3*3) * SN( 30) 
COMMON Z/Z(200) 

COMMON /TABI/ZZ(ECC) 

COMMON /OL/OLM ( IC* IC) 

O I MENS ION TI TLF( 20 . SA VE ( 5 0 


0) *KODE 120) .LI 
. THUSN , THLS ^ .S^UC 13 .3) 


CBLOOOlO 
CBL00020 
CBL00030 
CBL00040 
CBL 00050 
C6L00060 


EQU rVALENCEI AERO( 
( AEPO( 


I ) 
4) 

(AEROi 7) 
(AERQ( 10) 
( AERO { 13) 
(AERO( 16) 
I AEROI 19) 
( AERO( 22 ) 
( AEPOI 25) 
( AEROI 28) 
( AEROI 31 I 
(AFRO! 34 ) 
I AERO ( 44 ) 
I AERO ( 47 ) 


CDU) 
CDA ) 
COQ) 
COO) 
CODE) 
COAD) 
CYBI 
CYP ) 
C YR ) 
C YOR ) 
C YDA ) 
C YD S) 
XREF) 
ZCG) 


AEROI 

AEROI 

AEROI 


150) 



CBL00070 

2) 

t 

CLC),(^EFG( 3), 

CMU ), 

C0L 00080 

5) 

f 

CL^I ,{#ECC( 6) » 

CMA). 

CBL00090 

8) 


CIO *(4EF:C( 9) . 

CMC ). 

CBL 00 100 

1) 


CLC) .(AEROda), 

CMQ). 

C6L00 110 

4) 

t 

CLCE) « (AERC( 15) t 

CMO£)« 

CBL 00120 

7) 

tCL^C ) •<^ERC< 18) .CMAO), 

CBL 00130 

01 

t 

CLE) ,dERC(21), 

CNB). 

CBL 00 140 


AER0I23) 

AER0I26) 

AEROI29) 

AER0(32) 

AER0I35) 

AERO(45) 


CLF) 
CLR) 
CLCF ) 
CLC^) 
CLCS) 
iREFI 


•I AER0I24) 

• IAERG(27) 
. IAEFCI30) 
. UERCI33) 

• I AER0I36) 
f 1 AER0I46) 


CNP). 
CNR ). 
CNOR) . 
CNDA). 
CNDS ). 
XCG ). 


CBL00150 
CBL 00160 
C0LOO 170 
C6L00 180 
CBL 00190 
CBL00200 
C0LOO21O 


EOU IVALENCEC AERO 

148) 

.AMACH) 


(AERO (49) tVC l.fAERC (50) 

9 AM ) 

C0LOO22O 

EQU IVALENCE( AERO 

I 51 ) 

.PHQ ) 


(AERO (52) • HT)tO>EK0 (53) 

f B ) 

CBL 00230 

EQU IVALENCB( AFRO 

( 54) 

• CBAR ) 


(AERO (55) «S» )«(AERC (56) 

9 XIXZ) 

CBL 00240 

EQU IVALENCEl AERO 

(57) 

• XI XX ) 


(AERO ISat >*(AEf:C (59) 

9 ZIZZ 1 

CBL 00250 

EOU I VALENCE ( AERO 

( 60) 

.CLT ) 


(AERO (61),CCT },(AERC (62) 

9 CMT >9 

CBL 00260 

(AERO 

< 63) 

. THE TA ) 




CBL 00270 

EOU IVALENCEC AERO 

I 66 ) 

. »IL UF ) 


(AER0(67). kLLF) •( AERC( 68 ) • 

V(LURl 9 

CBL 00 280 

(AERO 

(69) 

• M.LR) 


(AERO(70) • tiiHFI • (AERC(71 ) » 

WLHRI 9 

CBL00290 

( AFRO 

( 72) 

« STAF) 


(AER0(73). SIAR) •I4ERC(74) • 

BLHF). 

CBL00300 

(AFRO 

( 75) 

. BLHR) 


(AERO (76) • »LCI!) •(AERC(77) ,ST ACR), 

CBL 00310 

( AERO 

(78) 

9 BLCR) 


(AERG(79) • EF) • ( AERC (80) , 

ER), 

CBL00320 

(AERO 

< 81 ) 

« AF) 


(AER 0 (e 2 ). AC) .(AERC(83) * 

HUGE), 

CBL00330 

( AERO 

( 84) 

. HLCF) 


(AERO<85)» HCCR) •(AER 0 ( 86 >. 

HLCR) , 

CBL 00340 

(AERO 

I 67) 

• DCF) 


(AER0(88) • CCR) , 


CBL 00350 

(AFRO 

(90) 

9 R VF) 


(AER0(91). FHF) .(AERC(92) • 

RVR), 

CBL 00360 

( AEPU ( 

93). 

RHP) 


(AERO(94) . TRO) . (AERQ(95> • 

AKR ) , 

CBL00370 

(AERO < 

96 ) . 

COL) 


<AERC(97) ,£1111) .(AERC(98)«W 

LLTT >, 

CBL 00380 

( AFRO( 

99 ) . 

TLFTO) 9 

( 

AERGd 00) • AKLFT) • 


CBL00390 

( AERO ( 

1 02) 

9 ALT X ) 9 

( 

AERO(IOJ), ALT2) , (AERC( 104 ) , 

CMP > 

CeL00400 

EOU IVALENCE(AERO( 

105) 

• SN LX) 


(AERO(106), SMiY) .(AERC<107) 

. SNUZ). 

CBL 004 10 

(AERO ( 

108) 

• SN L X ) 


(AERO(109)« «MV) «(AERC(1 10) 

« SNLZ)« 

C8L00420 

(AERO ( 

111 ) 

9 SNUST) 


(AER0(112) •SFLtiL) ,(AER0(1 13) 

• SNUBL 1, 

CBL 00430 

<AERO{ 

114) 

. SNL ST) 


(AERO (11 5) .SMIiL) t( AERO (116) 

• SNLBL )« 

C0LOO44O 

( AERO ( 

1 1 7) 

. TUSNO) 


<AERO(118) .ttShC) .(AEROdlO) 

. AKSNU }. 

CBL 00450 

( AERO ( 

120) 

tA KSNL) 


(AER0(121) ,ACShU) ,(AERC(122) 

« ACSNL ) . 

C0LOO46O 

( AERO( 

123) 

• AKSY) 


(AERO (124) .A>fHI ) .(AERO (125) 

• AKTHE ). 

CBL 00470 

( AERO( 

126) 

. AKAZ) 


(AER(J(127). TISY) .(AER0(128) 

.T2PHI )• 

CBL 00480 

(AERO ( 

129) 

9 T3THE ) 


(AERC(130) « 14A2) 


CBL00490 

EQU IV AL ENCE( AEROP 

( 1 ) 

« CXLP) 


(AEROP( 2). C 2LF ) • (AERCP( 3) 

• CMUP). 

CBL 00500 

( AEROP 

( 4) 

9 CXAP) 


(AEROPi 5), C2AR) • ( AEROP( 61 

• CHAP), 

CBL 00510 

( AEROP 

( 7) 

9 CXQP) 


(AEROP( 8 ). C2CR) .(AERCP( 9) 

• CMQPI, 

CBL00520 

( AEROP 

( 1 C) 

* CXOP) 


(AEROPdl). C 2CR) .(AERCR(12) 

. CMOP), 

CBL 00530 

(AEROP 

(13) 

9 C XDEP) 


(AERCR(14) .C2CER) «(AERCF(15) 

.CMDEP). 

CBL 00540 

( AFROPI 16) 

.C XADP) 


(AER0P(17) .C2A0P) • (AEPCR( 18) 

•CMAOP), 

CBL00550 


MLE CABLE 


FORTRAN PI 


G F t A ^ 


DATA 


SYSTEMS 


6 

y 

9 

A 

B 

I 

1 

2 

3 

4 

5 

6 
7 
B 
9 


(AEROP(19). CY8P) 
(AEPOP<22>f CYPP) 
(AFROP(25) • CYRP) 
( AFROP( 28) tC VORP) 
( AEROP ( 31) »C YOAP) 
( AEROP ( 34) fC YD SP) 


E3U IVALENCE 


( SN( 1 ) t 
( SNC 4)* 
( SNl 7) , 
i SNi 10) • 
( SN( 13) • 
( SN( 1€) t 


G XI ) 
G X2 ) 
G X3 ) 
GX4 ) 
THU I 
ALL ) 


• C 

• ( 

• < 

• I 


* 

< SN( 15) *THG XI » . C 
( £N( 22) .THG X2 > .< 
( SNI 2E) ,THG X3 ) , C 
I SNI 2P) ,THG X4 ) . ( 


*(AEROP(20). CLEFI •(AER0P(211. CNBP). 
*<AER0P(23), CLFF) ,4 AERCP(24) , CNPP), 
*<AEHCP(26), CLFF) .{AERCP(27>. CNRP), 
• (AEROP 129) .CLCRP) •( AEROP ( 30 ). CNDRP ) . 
«( AEROP 432) .CICAPI • 4 AEPCPI33) • CNCAP ) , 
, (AEROP 435) (CICSF) • 4 AEPCP(36 > , CNCS P ) 
£M 2). GY1)«(SM 3)* GZl), 

SN( 5) • G>2).4£M 6). GZ2). 

SN( 8), GY3)«(SM 9), GZ3 ) . 

SN(ll). G>4) «(<^(12) • GZ4). 

SM14), THL)«<£M15)« ALO ) , 

SM20) ,THGY1 ) • (SM2I ) .THGZI } « 

SN(23) ,THGV2) .(SM24) ,THGZ2>» 

SN (26) ,7HGY3) , (SK (27) ,THGZ3 ) t 
SM29) *THGV4) , (£^ (30) «THGZ4) 


K ASE = 0 
IR =f 

14 =6 


L_L = 0 

DO 1 I J = 1 , ? C 
ll SAVE(J)=55C5. 

LL =0 

READ! IR, 15C )( T ITLE( I ) .1 =l ,2 0) 

READ! IR, 2CC )(KOOE( I ). I =1 , 16) 

200 FORMAT( 16 I S ) 

WR ITE( IW, 17C ) KOOE( 1) , ( TI TLE ( I ) ,I =l ,20) 

I FORMAT! in, 2K, ‘CA SE NO = • , I 3 ,4 X ,20A4 ) 

CALL R ITE 

1F( KODE( 7 ) ,EQ . 1 ) GO TO 10 
READ( IR, IOC)( AFRO (I ) , I =1 ,36) 

GO TO 2 0 

10 CALL TAB IN II I, 26, NG ) 

IF(NG.EO.O) GO TO 20 
4R ITE( IW, 3C0 ) NG 

300 FORMAT!//, • ERROR IN READING TABLES 1 -36 , XG = * , 12 ) 

GO TO 500 

20 READ! IR, IOC )( AERO ( I ) , I =44 ,59) 

REAC( IR, lOCX AERO (I ),I=66,130) 

100 FORMAT! 6E 1 2 .5 ) 

IF( KOOE( 12 > ,NE . 1 ) GO TO 32 
CALL TAB IN ( 1, 2 ,NG ) 

IF(NG«FQ.0» go TO 32 
4R I TE( IM, 420 ) NG 

420 FORMAT! • ERROR IN READING SNL0BER DATA T AE LE ,^G=:« , 13 ) 
a) TO ECO 
100 0 DO 2 e 1=1,15 0 
2fl AERO( I ) = £AVE 1(1) 

READ! IP, 15C)( TITLE! 1 ) ,1 =1 ,20) 

150 FORMAT! 20A4 ) 

K ASE= 1 


DO 3 4 J = 1 , 5 C 
3A SAVE! J ) = 9955. 

REAC( IR, 20C )( KODE ! I ) , I = 1 , 16) 

^ 4R ITE! IW, 170 ) KODE! 1 ) , ( TI TLE ! I ) ,I =1 ,20) 


CBL00560 
CBL 00570 
CBL 00580 
CBL00590 
CBL 00600 
CBL00610 
CBL00620 
CBL00630 
CBL 00640 
CBL00650 
CBL00660 
CBL00670 
CBL 00680 
CBL 00690 
CBL 00700 
CBL007 10 
CBL 00720 
CBL 00730 
CBL 00740 
CBL00750 
CBL00760 
CBL 00770 
CBL 00780 
CBL00790 
Ca.00800 
CBL0081 0 
CBL 00820 
CBL 00830 
CBL00840 
CBL 00850 
CBL 00860 
CBL00870 
CBL00880 
CBL00890 
CBL00900 
CBL 00910 
CBL 00920 
CBL00930 
CBL 00940 
CBL00950 
CBL 00960 
CBL00970 
CBL00980 
CBL 00990 
CBLOIOOO 
CBL 0 10 10 
C8L01020 
CBL01030 
CBL01040 
CBL01050 
CBL 01060 
CBL01070 
CBL01080 
CBL 01090 
CBLOl 100 



fil^^ carle 


FORTf^AN PI 


G F U A h 


DATA 


SYSTEMS 


CALL RITF 
WR rTF( IW, 3E2 ) 

F3RM ATJ 3Xt "DA TA CHANGE M 

26 READ(IR»3EC) KtVALUE 

350 FQRM AT< I 3t E 12 • E I 
WPITE( I\^^,3E1)K » VALUE 

351 FORMATI 2X t I3f 3X.G12*5) 

IF( K .L T • 1 ) GO TO 22 
AERO(K )=VALLF 

I F( K .L T *37 ) SA VE( K ) =AEPO( K> 

GO TO 2 e 
22 LL-C 

32 IF(K0DE< 7 ) ,£0 •€ ) GO TO 31 
DO 3 0 1=1,36 

CALL STINTI(AMACH,0,0,I«I ,AERC(1 ) ^NGI 
IF(NG.NE.O) GO TO 4C 

30 CO NT INUE 

OO 3 6 J = 1, 36 

36 IF( SAVE( J ) .NF*^S^9. I AERO ( J ) = SA VE C J) 

GO TO 3 I 

40 WR ITE( IW, ACC ) I,NG 

400 FORMAT{ //, • FRROR IN TABLE NO • 1 14 , • NG= • , I 3 ) 

GO TO 500 

360 FORM AT( 6F 1 C .3 ) 

31 IF(KASE.EQ.n GO TO 9 
WR ITE( IW, 6 C I > 

801 FORMAT( 5X, • INPLT DATA AS SPECIFIED IK AEFC AFfAVM 
WR ITE< rw, ECO )C I • AERO ( I ) «1 =1 «1 3CI 

aOtr F3PM AT{ 5{ 2X, •AEROC • 1 1 3 , • ) = • ,G I €• 3 1 • 

9 OO 25 1=1, 150 

25 SAVE 1< I }=AERO( I ) 

TF( KnOE( 3 ) .ED • C ) GO TO 40 
42 DO 27 1 = 1, 15C 

27 AEROC I ) = 5A VE IC I ) 

CALL RUTLOC 
IF(LL*£Q.O) GO TO 1000 

48 CALL TRAN 1 

IF( KQDEC e ) *50 . C ) GO TO 49 
ITEC IW, eC2 } 

802 FORM AT( 4X, ’AERO DATA IN STAB* AXIS AT ECLAT* FEF* CENTER*) 
WPTTEC IW,ECC)(I , AEROC I ) tl = l »3 6) 

49 CALL TR IM 
CALL TRANS 

IF( KOOEC 5 ) *£0 .0 ) GO TO 50 
WR ITEC • eC3 ) 

803 FORM AT ( 4X, ’AERO DATA IN 0 CD Y AXIS AT ECLAT. PEF. CENTER*) 
WR ITEC lW.eC4)( I , AEROP (I ) . I =l .36) 

80 4 FORM ATC 5C 2 X, • AEROP ( * , I 3 ♦ * ) = * t G 1 0. 3 ) ) 

50 IF(K0DE(2)) 7CfPC,9C 
70 WR ITEC IW, 7CC ) 

700 FORMAK • i ♦ ♦ LONGITUDINAL STABILITY ♦♦♦♦•) 

CALL LONG 

IFC KQDEC 3 ) .EQ . I ) GO TO 42 
GO TO 1 0 C 0 
8 0 WR ITEC IWt7fC) 


CBLOt 1 10 

CBL 0 1 120 

CBLOl 130 

CBLOl 140 

CBLOl 150 

CBLOl 160 

CBLOl 170 

CE1.01 180 

CBLOl 190 

CBL01200 

CBL01210 

CBL01220 

C6L01230 

CBL01240 

CBL01250 

CBL01260 

CBL01270 

CBL01280 

CBL01290 

C0LO13OO 

CBL01310 

CBL01320 

C0LO133O 

CBL01340 

CBL01350 

CBL01360 

CBL01370 

CBL01360 

CBL01390 

CBL 01400 

CBL01420 

CBL01420 

CBL01430 

CBL01440 

CBL01450 

C6L01460 

CBL01470 

C0LO146O 

CBL01490 

CBL01500 

C0LO151O 

CeL01520 

CRL01530 

CBL01540 

C0LO155O 

CBL 0 1 560 

CBLOl 570 

CBL 0 1560 

CBL01590 

CBL01600 

CBLO 1610 

CBL01620 

CBL01630 

CBL01640 

CBLOl 650 


f=^Il.e CABLE 


FOR TR AN PI 


G F L I* »< A h 


OAT 


S y S T E M S 


750 

FORMAT( • ♦♦♦♦ LATERAL/DIRECTICNAL STABILITY ♦♦♦♦•! 



C6L01660 


CALL LAT 



C0LO167O 


IF( kODEI 3 > .EQ . 1 ) GO TO 42 



C0LOI66O 


GO TO loco 



CBL 0 1690 

90 

WR ITE( I\*, 7CC ) 



CBL 01700 


CALL LONG 



CBL01710^ 


WR ITEI IW, TEC ) 



CBL01720 


CALL LAT 



C0LO173O 


IF( KODEl 3 ) .EQ . 1 ) GO TO 42 



C8L01740 


GO TO 10 CO 



CBL01750 

50 0 

STOP 



CBL01760 


EN D 



CBL01770 


SUBROUTINE RUTLOC 



CBL01780 


COMMON /DAT /AERO ( 1EO),AEROP(5CI ,KOOE (2 0> .Lt 



CBL01790 


IW =€ 



CBL01800 


IF(LL.GT.C) go to 42 



CBL01810 


I I=KODE( 4 ) 



C8L0I820 


VARYr ARS( AERO ( I I )<K . 1 ) 



CBLOl 830 


ANOM = AERO (II) 



CBL0i840 


L= 0 



CBL.0I850 


II 



CBL01860 


WR ITEI IW , eoo ) II 



CeL0l870 

60 0 

FORMAT! 1H1,3X.» ROOT LOCLS VARYI AG AERC ( • • 13 ,• ) • 

1 


CBLOieao 

42 

L=L + 1 



CBL01890 


I I =KODE( 4 ) 



CBL01900 


AEROI I I )=ANOM-E.*VARY+L*VARY 



CBL 0 19 10 


IFIL.GT.S) GO TO 44 



C8L01920 


WR ITEI IW, lEO) KOOEI 4) ,AERO(I I ) 



C8L01930 

tr^X) 

FO RMATI /2X, EHAEROI , I 3 ,2H) = ,G1 2.5) 



C6L01940 


RETURN 



C0LO195O 

44 

AEROI II ) = ANOM 



CBL01960 


LL =0 



CBL 01970 


RETURN 



CBL01980 


EN D 



CBL 01990 


SUBROUTINE TRANS 



CBL 02000 

THIS ROUTINE CALCULATES BODY AXIS AERC DATA /T CR FfiCH STAB. 

CBL 020 10 

AXIS AERO DATA AT CR 



CBL 02020 


COMMON /DAT/ A ERO I 1 £0 ) , AE ROP I 5 0 ) • KODE <2 C ) « L L 



CBL02030 


EOU IVALENCEIAERO ( 1), CDU), {AEROI 2), CLL),{AEROI 3) 


CMU }f 

CBL02040 

1 

(AEROI 4). COA). (AEROI 5). CLA).(AEfiC( 6) 


CMA )• 

CBL02050 

2 

(AEROI 7). COQ), (AEROI 8). CLC). (AEROI 9) 


CMQ). 

CBL02060 

3 

(AEROIIO), COO) , (AEROI 1 1 ) . C L C ) . ( AERO < 1 2) 


CMC), 

CBL02070 

4 

IAEPOI13), CODE ), I AEROI 14) , C LCE ) • 1 AERO ( 15 ) 


CMOEJt 

CBL02080 

5 

(AEROI 16). CDAO ) , (AEROI 1 7) .CL AC) .lAERCIlB). 

CMAO), 

C0LO2O9O 

6 

(AEROI 19), C YB > , (AEROI20) , C L E > • I AERO (2 1 ) 


CNB). 

CBL02100 

7 

lAERO(22), CYP) , lAERO 123) , C L F ) , ( AERO (24) 


CNP), 

C6L021 10 

8 

(AERO(25), CYR) • IAEROI26) , C L R ) • 1 AERC 1 27) 


CNR), 

CBL02120 

9 

(AFRO! 28), C YDR ) . (AERO (29) . C LC R ) • ( AERO (30 ) 


CNOR). 

CBL02130 

A 

(AFROI31), C YD A) , (AER0I32) , C L C A ) , ( A ERO (33 ) 


CNDA), 

CBL02140 

B 

(AFRO(34), C YD S) , I AERO 135) , C L C S ) . ( AERO (36 ) 


CNOS), 

CBL02150 

C 

IAEROI44), XREF) , lAERO(45) , 2 REF ) , ( AERC (46 ) 


XCG). 

CBL02160 

r> 

(AFRO(47), ZCG) ,(AER0(63) .THETA) 



C0LO2 170 


EOU IVAI FNCE( AFROPI 1), C X UP ) . ( AE ROP I 2), C 2UR ) . (AEROPI 

3 

). CMUP), 

CBL02180 

X 

(AEROPI 4). CXAP) . (AEROP( 5). C 2 AF ) . ( AE RCP( 

6), CMAP), 

CBL 02190 

2 

(AEROPI 7), C XQP) , (AEROP I 8), C 2CF ) . ( AERCP ( 

9), CMOP), 

CBL 02200 


FILE CABLE 


FORTRAN PI 


G F L ^ A N 


DATA 


S Y S T E M S 


3 

( AEROP (10) 

« CXOP) 

« CAEROPf 1 1 ) 

• C2CP) 

4 

(AEPOP( 13> 

• C XDEP) 

* (AEROPdA) 

• C20EP) 

5 

(AEROP ( 1 6) 

,C XADP) 

« (AER0PI17} 

fC2 ACP) 

6 

(AEROP( 1?» 

♦ CYBP) 

, (AERCP<20» 

« CLEP) 

7 

( AFROP( 22) 

t CYPP) 

. (AER0P(23I 

« CLPF) 

6 

( AEPOPt 25) 

. CYRP) 

• (AER0P(26I 

« CLFP) 

9 

( AEROP ( 28) 

♦ C YDRP) 

• (AER0P<29) 

•CtCPP) 

A 

( AFROP( 3 1 ) 

• C YOAP) 

• CAER0P(32 ) 

•CLCAF) 

B 

( AEROP < 34) 

*C YO SP) 

. <AER0P<35) 

•CLCSP) 


IW =€ 

alpi-a = tfeta 
SN ALF= S IN ( ALPHA ) 

CDALF= COC(ALPHA) 

SNSQ = SNALF^A2 
COSO = COALF««2 
SNCO = SNALF*COALF 
C0U=C0U4 2 .♦ I Cn0 4CDA^ THE TA ) 

CLU=CLU42.^( CL0 4CLA*THE TA ) 

COA:=CDA-( CLQ4CLA« THETA) 

CL A = CL A4CC04CDA*THETA 

CK UP =-CL A# SNSQ-CDUACO SQ 4 C CDA +C LU) ♦ SNC C 
CZ UP= CDA4 SNSO-CLUACO SQ4CCLA-CDU) ♦ SNCO 
CMUP= -CMA ♦SNALF4 CM U ♦COALF 
CX AP= CL L4SNSQ-CDA4C0 SQ 4 CCLA-CDU> ♦ SNC C 
CZ AP=-CDL4 SNSQ-CLA4C0 SQ- ( CDA 4C LU) ♦ SNC C 
CMAP= CMU ♦SNALF4 CMA 4C0ALF 
CX QP= CL04 SNALF-C0Q4C0ALF 
CZ QP=-( CDQ4SNALF4CLQ4 COALF) 

CMQP= CMQ 

CZ ADP=-CLAD4C0ALF4CDAD* SNALF 
CX ADP=-CDAD*CO ALF-CLAO+ SNALF 
CMADP= CMAO 

CX CEP= CLDE4 SNALF-C DDE* COALF 
CZ CEP=-CDDE*SNALF-CLDE*COALF 
CMDEP= CMDE 
CY EP= CYB 

CN8P= CLB * SNALF 4 CNB *C OALF 
C^RP= -CNB 4SNALF4 CLB *C OALF 
CYPP= (-CYR4SNALF4 CYP+COALF) 

CNPP = ( -CLR *SN SQ4 CNP*COSQ4 (CLP- CNP|*S^CC) 
CLPP=< CNP*SNSQ4 CLP*COSQ- (CLR4 CNFI*S^CC) 
CYRP= ( CYP*SNALF4 CYR4COALF) 

CNRP-C CLP*SNSQ4 CNR4C0SQ4 CCLR4 C^FI♦S^CC) 
CL PP=( -CNP4SNSQ4 CLR*COSQ4 (CLP- C^P)*S^CC) 
CYCAP= CYDA 

CNDAP= CLDA+SNALF4 CNDA*COALF 
CLCAP= -CNDA*SNALF4 cloa*coalf 
CYDRP= CYDP 

CNDRP= CL0R*SNALF4 CNDR*C0ALF 
CL CRP=-CN0R*SNALF4 CLDR*C0ALF 
CYDSP= CYDS 

CL CSP = -CN0S*SNALF4 CLDS*C0ALF 
CNDSP= CL0S*SNALF4 cnds*coalf 
RE TURN 
EN D 


CAERCP4 12) 
<AERCP( 15) 
( AEPCPC 161 
<AERCP(21 ) 
( AEPCPC24) 
CAER0P(27) 
|AEPCP(30) 
(AERCPC33 ) 
|AER0P(36 ) 


CMOP). 
CMDEP )• 
CMADP), 
CNBP ). 
CNPP), 
CNRPlt 
CNORP), 
CNOAP )• 
CNOSP) 


C0LO221O 
C0LO222O 
CBL 02230 
CBL 02240 
CBL02250 
C8L02260 
Ca.02270 
C8L02260 
CBL02290 
CBL02300 
CBL 02310 
C0LO232O 
C0LO233O 
CBL02340 
CBL02350 
CBL 02360 
CBL 02370 
CBL02360 
CBL02390 
CBL 02400 
C6L02410 
CBL02420 
CBL02430 
CBL02440 
C0LO245O 
CBL 02460 
C0LO247O 
CBL02480 
CBL 02490 
CBL02500 
CBL025 10 
CBL02520 
CBL02530 
CBL02540 
CBL02550 
CBL02560 
CBL02570 
CBL02580 
CBL02590 
CBL02600 
C6L0261 0 
CBL 02620 
CBL 02630 
CBL 02640 
CBL02650 
CBL02660 
CBL02670 
CBL02680 
CBL 02690 
CBL 02700 
C8L02710 
CBL02720 
CBL 02730 
CBL02740 
CBL 02750 


FILE CABLE 


FORTRAN PI 


6 F L M » A N 


DATA 


S V S T e M S 


SUBROUTINE TRANl 

C this ROUTINE TRANSFORMS INERTIA DATA g STAEIIITV AXIS AERO DATA 
C THE EQUATION REFERENCE CENTER 

COMMON /DAT/AERO( 1 S 0 I » AEROP < 5 C ) ,KOOE (201 .Li 

EOU IVALENCEIAEROI 1). CDU).(AERO< 2). CLtl«CAERO( 3), CMU), 

1 (AERO( 4), CDA),|AERO( 5), CLA),<AERC{ 6), CMA», 

2 (AFRO< 7». CDQ»,(AERO< 61. CLCl.IAERCf Q), CMQ ), 

3 (AERO(IO). COO) • (AERO< I 1 ) , C L C ) • < AERO ( 12 ) . CMO), 

4 (AER0113), CODE ) , ( AERO( 14) , C L C£ ) , ( AE RC ( 15 ) . CMDE), 

5 lAERO(ie), COAO) »<AER0(17) ,CLAC) ,(AERC(16).CMAC). 

6 (AER0(19), CYB) .IAER0I20) • C LE ) • ( AERCI 2 1 ) • CNB). 

7 (AEP0I22). CYP) , CAER0I23) . C L F) • ( AEROf 24 ) • CNP), 

8 (AERO(25), C YR } , (AEROf26) • C L R ) , ( AE RC ( 27 ) . CNR), 

R (AEP 0 l 2 e), C YDR) , IAER0(29) , C L C F } . ( AERC (30 ) . CNDR), 

A (AEROI31), C YD A ) , (AEROI32) . C LC A ) . ( AERC (33 ) • CNDA), 

B (AER0(24), C YD S) , (AERO(35) . C LC S ) • ( AERO (36 ) . CNDS). 

C (AERO(44), XREF) .{AEROC45) , 2 REF ) . ( AERC (46 ) . XCG), 

O (AER0(47), ZCG ), (AER0(63) .THETA) 

EQU (VALENCE! AERO ( 48) , A MACH) . (AERO (49), VC ).(AERO (50), AM) 

EOU IVALENCEI AERO (51),RHO ),|AERO (52), XT), (AERC (53),B ) 

EOU (VALENCE! AERO (54),CBAR ) . (AERO (55), SX ),(AERC (56), X IXZ ) 

EQU IVALENCEI AERO (57),XIXX ),|AERC (58),YtVY },(AERC (59),ZIZZ ) 

EQU (VALENCE! AERO (60),CLT ) , (AERO (61),CCT ),(AERC <62).CMT > 

C INERTIA TRANSFORMATIONS 
X =XCG/ 12 . 

Z =Z CC/ 12 . 

X IXX^X IXX + AM*( Z** 2) 

Y IYY=Y IYY*AM4 ( X4*2)+AM4(Z**2) 

^ Z IZZ=7 IZZ+AM*( X4*2) 

X rxz=x IXZ- AM* x*z 
C AERO DATA TRANSFORMATIONS 
X=XREF/( 12.4CBAR) 

Z=ZREF/( 12.*CBAP) 

CMO=CMO-Z*COO + X*CLO 
CM A=CMA-Z4CDA4X*CLA 
CM Q = CMQ-Z*CDO ♦X*CLQ 
CM CE=CMDE-Z*COOE + X*CLDE 
X =X CG/( 12 .*B ) 

Z=ZCG/( 12. *B ) 

CN e = CN B4X*CYB 
CNR = CNR 4X*CYR 
CNP=CNP *X*CYP 
CN DR=CNDR 4X*CYDR 
CN CA = CNCA4X*CYDA 
CN CS = CND S ♦X^C YDS 
CL R = CL P-Z* CYB 
CLR = CL R-Z*CYR 
CL P = CLP-Z*CYP 
CL DR=CLDR-Z*C YDR 
CL C A = CL CA- 7*CY0A 
CL CS=CLOS-Z*CYDS 
RETURN 
EN C 

SUBROUTINE LATSN 

common /DAT /AERO! 1 50 ) , AE POP ! 5 0 ) ,KODE (2 0) ,LL 


CBL 02760 
CBL02770 
C8L02780 
CBL02790 
CBL02800 
CBL02810 
CBL 02820 
CBL02830 
CBL02840 
CBL 02850 
CBL02860 
CBL02870 
CBL02880 
CBL02890 
CBL02900 
CBL 0 29 10 
CBL 02920 
CBL 02930 
C8L02940 
CBL 02950 
CBL 02960 
CBL 02970 
CBL 02980 
CBL 02990 
CBL 03000 
CBL 030 10 
CBL03020 
CBL 03030 
CBL 03040 
CBL 03050 
CBL 03060 
CBL 03070 
CBL 03080 
CBL03090 
CBL03100 
CBL031 10 
CBL03120 
C8L03130 
CBL 03140 
CBL03150 
CBL 03 160 
CBL03 170 
CBL03180 
CBL 03190 
CBL 03200 
CBL03210 
CBL 03220 
CBL 03230 
C8L03240 
CBL 03250 
CBL03260 
CBL03270 
CBL03280 
CBL03290 
CBL03300 


FILE CABLF 


FORTRAN Pi 


G R (J A N 


DATA 


SYSTEMS 


COMMON/SNUBB/SNliC 3,3) »SN( 3 0) , TH t S^ , TH L S ^ , S ^tC (3 f3) 

COMMON Z2ZC20C) 

COMMON /DL/CUM ( ICf 10) 

COMMON /TAB 1/ZZ{ eCC) 

EOU IVALENCEi AERO C 105) • SNCX) tC AERO 0 06) • « Mi > ) • < AE RO ( I 07 ) • SNUZ )« 
l(AERO(10e)« SNLX ) •(AEROCl OS) • 5NLY I • ( AE R C 1 1 1 0 ) , SNLZlt 

2( A ERO( I 1 I )t SNLST ) » ( AERO (1 12) ♦ SNUWL) « {AE FC U 13 ) fSKUBL) • 

3( A ERO( 1 1 4 ) . SNL S T ) • ( AE R O ( I I 5 ) • < NL WL) « (AE F C U 16 ) •SNLBL) • 

4( A FRO( 1 1 7 )• TUSNO ) • (AERO U 1 01 • TLSNOJ • < AE FC U 19) f AKSNU) f 

5(AEPO( 120 ), AKSNL ) , ( AERO (49) , VO) • ( AE F C 15 1 ) t FHC) , 

6( A ERO< 63 )• THETA ).(AERO( 12 1 ) ♦ADSNU) «(AEFC Cl 22) «ACSNL) 

EQUIVALENCE (SN( 1)« GX1)«{SN( 2)« GV1)«CSFC 31# GZD# 

1ISN( 4)^ GX2)t(SN( 5), GY2)«(SN( 6) t G22I, 

2(SN( 7), GX3),(SN( 8), GY3),CSM 9)t Gi3), 

3(SN(10), GX4)«(SN(ll)t GY4),(SN(12)# G24)« 

4CSN(13)f THU ) f ( SN( 14) . THDtCSNClSI# AIL). 

5( SN< 16 )« ALL ) « 

6( SN( 19 )• THGX 1 ) • ( SN( 20) ,THGY1 ) •«SNC21) •THG21 ) • 

7(SN( 22)t THGX2)f<SN(23) *THGY2) t(5Nt24» fTHGiZ) « 
8{SN(25)»THGX3)*CSN(26).THGY3) •(SNC27) #THG23) • 

9( SN( 28 ). THGX4 ) • < SN< 29 ) • THGY4) • C SNC3 0) #THG 24 ) 

OiMENS ION TOPR( 3,3) *TOPL|3,3) ,B0TR(3«3) «ECTL {3 «3) 

CQT( BBP )= 1 •/TAN(B80 ) 

GXY(A,AA*C) = (-A4CCTCAAI/OA12. 

GX SY( A tAA,C,0,E,F ) = - ( A4 5 I N C AA) ♦ C #C * C CT C E ) > / F 

GXPHKA^AA.CtO^E.F^G) = (A4AA4C0T CO -C4EACCTCF))/G 

GYYCA.AA) = CSI ^(A) /AA) 412« 

GYSY(AtAA,CfO,EfF) = (A4AA4C0T (C)^C4SIFCE|)/F 

GYPH l( A, AA»C,DtEfF ) = - ( A ♦ S I N ( A A ) 4-C AC K C C T C E ) ) / F 

GZY(A,AA,C) = (-A4CCT(AA) /C) A12. 

GZSYCA,AA*C#D,E.F,G) = CA4AA4COTCCI -CA€ACCTCF))/G 

GZPH I( A. AAfC.D tE^F ) = CA4AA4C0T (C)^CA5IF(E))/F 

AL Y ( A ) = -A 

AL SYCA • AA^C.O ) = ( A ♦ A A-C *0 ) / 1 2 . 

ALPH I( A* AA.C. D ) = < A 4A A-C *0 ) / 1 2 • 

I^ =6 

DO 1 C 0 5 I = 1 1 3 
on I C C e J = 1 • 3 
SNU( I* J ) =C 
1005 SNUD( I , J )=C 

DO I C 0 6 I = 1 » I C 
00 1CC6 J = If 1 C 
100 6 DUM( U J ) = C 

IF(KODE< IC ) •FO*C) GO TO I C C2 
C TERMS FOR SNUBBER EFFECTS (LAT) 

CALL CWC SN ( THF TA ) 

IF(KODE( 10)*EQ.l) CALL OR C U SN C THE TA ) 

DUM( If 2 ) = -“TUSNO + GXl 

DUM( 1.3) = TUSN04GZ1 

DUM(lfS) - -TUSNO* SI N C THGYl ) 

OJ W( 1. 7 ) = GY 1 

DJM( 2f 2) = SNUX*TUSNO*GXl/l2.*SNUY4TUShC<GTl/12« 

DUM(2, 3) = -SNUX*TUSNO*G Zl/12. 

_ DUM(2»4) = - SNLY*TUSNO*SI N (THGXl ) /12. 

^ 0UMC2fS) = SNUX* TUSN04 SI N < THGTl) /12* 


CBL 03310 
CBL03320 
CBL 03330 
C0LO334O 
C8L 03350 
C8L03360 
CBL03370 
CBL03380 
CBL 03390 
C0LO34OO 
CBL03410 
CBL03420 
C0LO343O 
CBL03440 
C0LO345O 
C0LO346O 
CBL03470 
CBL 03400 
CBL 03490 
CBL 03500 
CBL03510 
CBL03520 
CBL03530 
CBL03540 
CBL 03550 
CBL 03560 
C0LO357O 
CBL 03580 
CBL 03590 
CBL 03600 
CBL 036 10 
CBL 03620 
CBL03630 
CBL 03640 
CBL 03650 
CBL 03660 
CBL03670 
CBLO360O 
C0LO369O 
CBL 03700 
CBL 03710 
CBL03720 
CBL03730 
C0LO374O 
CBL 03750 
C0LO376O 
CBL03770 
CBL03780 
CBL03790 
C0LO30OO 
C8LO301O 
C0LO302O 
CBL03830 
CBL03840 
CBL03850 


file cable 


FORTRAN PI 


C f L h h A h 


DATA 


SYSTEMS 


DUM( 2, 7 ) = C- SNLX^GY1-I*SNLY*G>1 )/l2. 

OUM(3w> = - SNL7*TLSNOAG XI /I 2. 

DIIM( J) = SNLZ^TLSNO#G2l /l2.-^S^tY♦TLS^C4GVI/12• 

OJM( 3, f ) = -SUV 7* TLSNO» SI M THG Y1 > /12. 

DJM( 3. e ) = SNLY^TLSNOASINCTHGZl 1/12# 

OL>M( 3* 7) = C- SNLY«G2l«-SNL2^G YD/12* 

OUM(4, 1) = GXYlGYl, THGXl ,ALL) 

DUM( At 2) = GXSY(- SNLY tTHGXl .-SNUXtGYl tlHGXl tALU) 

DUM( 4. 3 ) = GXPHK -SNU2 tG Yl t THG XI t-SKL’>tG21 ,THGXl • ALU) 

OUM{ 4,4)= - 1 . 

DUM(5, 1) = GYY( THGYl tALL) 

OJM(5#2) = GYSYC-SNUYtGXl •THGYl •-S^UX •THGYl tALUl 

DJM( 5, 3) = GYPHI ( - SN 0 2 , THGYl ,-SNUYtG21 , THGYl t ALU) 

DUM( 5, 5 ) = - 1 . 

OUM(e, 1) = GZYCGYl, THG21 ,ALU 

DUM< 6 , 2) = G2SY(--SNUY^GXlf THG 21 fSNLXfGYl , THG 21 , ALU) 

DUM( €f 3) = G2PHI (-SNUZ,GYl ,THGZ1 t-S^L Y •THG21 *ALU) 

OUM( e ) = • 1 . 

IF( KOOEI 10 ) .FO #2) GO TO 1010 
CALL CRC SN ( THETA ) 

Q= .e^RHO^VO^VO 
AL U 1 =ALU4 1 . 

C ALL ST IN T (O t ALL 1 , 0, 1 t 1 t TLSNI tNG) 

IF(NG*NE#0) GO TO 5CC0 
ALU2 = ALU- 1 « 

CALL STINT (Q, ALU2,0,1 ,1 fTLSN2 , ^G ) 

IF(NG.NF.C) GO TO 5C0C 
^ GO TO EOOl 

50^ WRITE! iW,5C02) NG,ALL,ALU,G 

5002 FORMAT! •ERROR IN SNUBBER TABLE 1 9 NG = • • I 2 ,3 > E 1 0 *3 I 
RETURN 

500 1 CONT INUE 

A<TU=( TUSN l-TU£N2)/2. 

A< SNU = AK TU 
1010 CONTINUE 

OUM! 7, 7 ) = - 1 . 

DUM(7, ei = AKSNU4 12* 

DUM( e, 1 I = AL Y CGY 1 ) 

OUM(e, 2 ) = AL£Y(-SNLY,GXlt-ENLX.GYl) 

DUM< e, 3 ) = ALPHI (-SNU2,GY1 t-SNUYtG21) 

OUM ( e, e > = - 1 . 

I F( K0DE( 10 ) .EO • l ) GO TO 1C15 
no I c I e 1=1,3 
on 1 c 1 1 j = 1 . 3 

1016 SviUD( I,J )=DLM( I , 7 )♦ AO SN U* OLM ( 0 , J) ♦ 1 2* 

101 5 CALL MASH( 3,6) 

DO 10 5 0 1= 1,3 

DO 1 0 5 C J = 1 • 3 
1050 TOPR(I,J)= DUM!I,J) 

IF! KODE( 10 ) .EO . I ) CALL DR C USN ! THE TA ) 

DUM(1,2) = -TLSN04GX2 
DUM(1,3) = TLSNOAGZl 

DUM!l,5) = - TLSNOA SI N ( THG Y2) 

DUM( 1, 7 ) = GY2 

OUM { 2, 2 I = SNLXtTLSNQ^G X2 / 1 2 • - SNL Y^ TL S ^ C 4GY2/12* 


Ca.03860 
CBL03870 
CBL03880 
CBL03890 
CBL03900 
C0LO391O 
CBL03920 
CBL 03930 
CBL03940 
CBL03950 
CBL 03960 
C8L03970 
CBL03980 
CBL 03990 
CBL04000 
CBL04010 
CBL04020 
CBL04030 
CBL04040 
CBL 04050 
CBL04060 
CBL 04070 
CBL 04060 
CBL 04090 
CBL04100 
CBL 041 10 
CBL 04120 
CBL04130 
CBL 04140 
CBL04150 
CBL 04160 
C8L04 170 
CBL04180 
CBL04190 
CBL04200 
CBL 04210 
CBL 04220 
CBL 04230 
CBL04240 
CBL 04250 
CBL04260 
CBL 04270 
CBL 04280 
CBL 04290 
CBL04300 
CBL04310 
CBL 04320 
C0LO433O 
CBL04340 
CBL 04350 
CBL04360 
CE^L 04370 
CBL04380 
CBL04390 
CBL04400 


FILE CAHLE 


FOttTRAN PI 


G f V h A h 


DATA 


S Y S T E M S 


DUM(2, 31 = - SNUX«TUSNO#GZ2/l2. 

niJM( 2, 4 ) = SNliY#TUSNa^SIN( 1HGX2) /12« 

DUM( 2f S ) = SNCX* TtSNO^SINl 7HGY2) /12. 

DUM(2, 7> = (- SNUX^GY2- SNLY^G X2) /I 2# 

DJMC2t2) = -SNLZ*TUSN0^GX2/12. 

OUM( 3# 3) = SNtl7A:TtSNO^GZ2/l 2•-S^tlY♦TtS^C #G Y2/12* 

OJM( 3, E) = - SNL2#TijSN0*SINi THGY2I/12# 

DlJM( e ) = - SNtY« TtSNO« SI NC THGZ2) /12# 

DJM< 3. 7 ) = ( SNtiY«GZ2^ SNUZ^G Y2) /I 2* 

DUM(4*II = GXY(GY2* THGX2 »A LL) 

DUM(4#2> = GXSY(SNUY* THGX2 fSNUX tGV2 flHG>2 #^LU) 

OJM( 4t 3 ) = GXPHI (-SNUZfG Y2 ♦ 7HG X2 ^SKUY ,GZ2 •THGX2« ALU) 

OijM( 4« 4 ) - - 1 • 

DUMCStl) = GYY( THG Y2 tALL) 

DUM( S, 2 ) - GYSYI SN U Y * G X2 • TNG Y2 •- SNU X • 1HC >2 ,ALU) 

S. 3 ) = GYPHI (-SNUZf THG Y2 fSNUV ,G 22 ,THG>2 t ALU) 

DUM< S. S ) = - I ♦ 

DUM(€*1) = GZY(GY2» 7HG22 *ALt> 

DUM ( 6f 2 ) = GZSYi SNUY tG X2 f THG Z2 fSKUX «G >2 fTHG22 t ALU) 

OJM( f . 3 ) = GZPH I (-SNUZ *G Y2 .7HGZ2 • SNL V .7FG 22 • A LU ) 

DJM( €• 6 ) = ~ I ♦ 

IF(KQDE( 1C ) •EQ.2) GO TO 1C20 
CALL DRCSNt THETA) 

ALUl=ALU4 I • 

CALL ST IN 7( ALLl »0t 1 • 1 * TLSNl »NG) 

IF(NC.NE.O) GO TO SOOO 
AL U2 =ALU- 1 • 

CALL STlNT(QtALL2tO,l*l ,TLSN2 ^NG) 

IF(NG*NE*0) GO TO 5000 
AK TU:=< TUSN I-TUSN2) / 2. 

A< SNU = AK TU 
1020 CrjNT INUE 

OJM( 7f 7 ) = - 1 . 

DUM(7tE) = AKSNU*12. 

OUM( E* I ) = AL Y(GY2) 

OUM{ e, 2 > = ALSY< SNUY *GX2 SNLX.G Y2) 

OUM( e* 3 ) = ALPHIC-SNLZ,GY2«SNUYtG22) 

OUM( e, E ) = ^ 1 ♦ 

IF(KODE( 10).EQ*1) GO TO 1 C25 
DO I C 2 E 1=1,3 
DO IC2E J 1,3 

1026 SM UD( I, J ) = 5NUD( I • J )^OUM( I ,7) ♦ADSNL40L^ (8 ^ J) 412. 

1025 CALL M ASF( 3, 0 ) 

DO I C E C 1=1,3 
DO 1060 J = I, 3 
1060 TnPL(I,J)= OUM(I*J) 

IF<KODE( 10),FQ,1) CALL DR C U SN ( THE T A ) 

DUM(U2) = -TLSN04GX3 
OLiM( 1, 3 ) = TLSN04GZ3 

DUM(l,e) = - TL SNO* £I N ( THG Y3 ) 

DU M ( 1 , 7 ) = G Y 3 

DUM( 2, 2 ) = SNLX4TLSN0 4GX3/l2.-SNLY4TL£hC<GY3/12« 

OJM(2,3> = - SNL X4 TLSN04G Z3/1 2, 

DUM(2,4) = SNLY4TLSN0«SIN( THGX3) /12# 

OJM<2, 5) = SNLX4 TLSNQ4 SI N( THG Y3) /I2« 


CBL04410 
CBL 04420 
C6L04430 
C6L04440 
CBL04450 
C6L04460 
C0LO447O 
CBL04460 
CBL 04490 
CBL04500 
CBL045t0 
C0LO452O 
C0LO453O 
COL 04540 
CBL04550 
C0LO456O 
CBL 04570 
CBL 04560 
CBL04590 
CBL04600 
CBL04610 
CBL04620 
CBL 04630 
CBL 04640 
CBL04650 
CBL 04660 
CBL04670 
CBL 04680 
CBL 04690 
CeL04700 
CBL 04710 
CBL04720 
CBL04730 
C0LO474O 
CBL 04750 
CBL04760 
CBL04770 
CBL047a0 
CBL04790 
CBL04800 
CBL04610 
CBL 04820 
CBL 04830 
CBL04640 
CBL 04850 
CBL 04060 
CBL 04870 
CBL 04880 
CBL 04890 
CBL 04900 
CBL0491O 
CBL04920 
CBL 04930 
CBL04940 
C0LO495O 



= !LF cable 


FORTRAN PI 


G C O ^ 


DATA 


S V S T E M S 


nUM<2. 7> = (- <NL XAGY3- SNL Y*G X3) /I 2. 

OllM(2. 2) = SNL 2* TL SNO*G X3/ I 2. 

_OJM(3, 3) = - SNL7♦TLSNO*G23/l2.-SNLY♦TLS^C*GY3/l2• 

DaM(3.5) = SNLZATL SNO» SI N ( 1HGY3 ) /12. 

DJM(3,e) = - SNLVA TLSNO* SIN ( THG23) /12. 

OJM(3, 7) = ( SNLYAGZ3- SNLZ*G Y3»/12. 

OOM(4, 1) = GXY(GY3f THGX3 »ALL) 

OUM(4,2) = G XSY( 6NL Y t THG X3 »-SNLX .G Y3 • 1H03 » ALil 

DUM{4, 3) = GXPHI ( SNLZ ,G Y3 , TMGX3 t SNLY ,GZ3 ,THGX3 fALL) 

DUM( 4, 4 ) = - I , 

DUM< S, 1 ) = GYYC THGY3.ALL) 

DUR(5, 2» = GYSY< SNL Y,GX3.THGY3»-SNLX.1HGY3.ALL) 

OOM(5, 3) = GYPHI ( SNLZ»THGY3 ,£NLY ,GZ3 ,IHGY3 ,ALL) 

DLJM( S, S ) = - I . 

DUM(C, 1) = GZY(GY3f THGZ3 ,ALLJ 

DJM<e.2» = GZSY( SNL Y#GX3.THGZ3»-SNLX.GY3 #TMGZ3.ALL» 

DliM(6*3) = GZPHII SNLZ.G y3.7HGZ3.SNLY,THGi3,ALL) 

OUM( C, e ) = - 1 . 

IF(KODE( 10».EQ*2) GO TO 1C30 
CALL DRC£N( THETA) 

ALL 1=ALL ♦ 1 . 

CALL ST IN T(Q, ALL 1.0,1 .1*TL£N1 .NG) 

IF(NG.NE.O) GO TO 5000 
ALL 2=ALL- 1 . 

CALL STINT(0,ALL2,0,1 ,I ,TLSN2,NG) 

IF(NG.NE.O) GO TO 5C0C 
AKTL = ( TL £N 1-TL SN 2) /2. 

A< SNL=AK TL 

10^5 continue 

DOM< 7, 7 > = - 1 . 

DUM{7, e) = AKSNL4 12. 

DOM( e, I ) = AL Y( GY3) 

DJvi(e. 2) = ALSY( SNLY.GX3,- SNLX.G Y3) 

OUM(e, 3) = ALPHK SNLZ.G Y3,£NLY,GZ3I 

DUM( 8, 8 ) = - 1 . 

IF( KOOE( 10 ) .EQ . 1 » GO TO 1035 
DO 1036 1=1,3 

DO 1036 3 = 1,3 

1036 SNOO( 1 , J ) = SNUD( 1 , J ) +D UM f I , 7 ) ♦ AD SNL*DUK (e,.)«12« 

1035 CALL M ASH( 2, 8) 

DO 1070 1=1,3 

DO 107 0 3=1,3 
1070 BOTL<1.3)= DUM(1,3) 

1F( KODEI to ) ,EO • 1 ) CALL DRCLSMTHETA) 

DJMll, 2) = -TLSNOYGX4 

DJMll, 3) = TL SNOYGZ4 

DUM(1, 5) = - TLSNO* SI N ( THG Y4) 

D3M(1.7) = GY4 

DOM12, 2) = SNLX4 TL SNO*G X4/1 2.♦S^LV*TL£^C*GY4/12. 

OJM(2, 3) = - SNL X* TLSN04G Z4/1 2. 

OUMC2,4» = - SNLYYTLSN04SIM THGX4) /12« 

03M12, 5» = SNLXA1LSN04SIN1 THGY4) /12, 

DUM(2, 7) = (- SNL X+GY3* SNL Y*G >4 ) /I 2. 

D3'<(3,2) = SNLZ+TLSN04G X4/12, 

DUM(3, 3) = - SNLZ*TLSN0*G 24/12. ♦SNLY4TLShC4GY4/12, 


CBL04960 
C8L04970 
CBL04980 
CBL04990 
CBL 05000 
CBL050 10 
CBL 05020 
CBL05030 
CBL05040 
CBL 05050 
CBL05060 
CBL05070 
CBL05080 
CBL05090 
CBL05 100 
CBL051 10 
CBL05120 
CBL05 130 
CBL0S140 
CBL05150 
CBL05160 
CBL05170 
CBL05180 
CBL05190 
CBL05200 
CBL05210 
CBL 05220 
CBL05230 
CBL05240 
CBL05250 
CBL 05260 
CBL05270 
CBL05280 
C8L05290 
CBL05300 
CBL05310 
CBL 05320 
CBL05330 
CBL05340 
CBL05350 
CBL05360 
CBL 05370 
CBL05380 
CBL05390 
CBL05400 
CBL05410 
CBL05420 
CBL05430 
CBL05440 
CBL05450 
CBL05460 
CBL05470 
CBL05480 
CBL05490 
CBL05500 


FILE CABLE 


FORTRAN PI 


G t P h A h> 


DATA 


SYSTEMS 


OUM( = £NLZ^TLSN0^SIN(THGV4I/12* 

DJM( 3» 6 ) = £NLY4TLSN04£IK( 1HG24) /12« 

^ OUM(3*7) = (- SNL Y#GZ4-SNLZ^GY4> /12* 

DUM(4tl) = GXY (G Y4, THGX4 ,ALL> 

DJM< 4, 2) = GXSY<- SNLY^THGX4 «-SNLX*GY4 •THGXA iALL) 

DJM< 4, 3) = GXPHK SNLZ.G V4.THGX4 «-SNtY«G24 «THGX4» ALL) 

OUM( 4, 4 ) := - I • 

DIJM<e, I) - GYY( THGY4*ALL) 

DL>M( 5f 2 ) = GYSYC- SNLY,G X4 • THG Y4 ^-SNLX .IhG V4 .ALL) 

DUM( 5, 3 ) = GYPHI ( SNLZ.THGY4 ,-SNLY,G24 ,1FG>4 ,ALLI 

OUM( 5* 5 ) = - 1 • 

DOM(e*l) = GZY( GY4» 7HGZ4 .ALL) 

DUM(6,2) = G2SY(- £NLY .G X4 , THG 24 ,-SNLX ,G>4 ,THG24 9 ALL) 

DUM(E. 3) = GTPh^li SNL Z .G Y4 .THGZ4 .-SKL Y .THG24 .ALL) 

ouM( €. e ) = - 1 • 

IF( KODE( 10 ) •EQ . 2 ) GO TO 1C40 
CALL DRCSN( THETA) 

ALL 1 =ALL ♦ 1 • 

CALL ST IN T 10, ALL I , C,1 ,1 , TLSNl ,NG) 

IF(nG-NE#0) GO TO 5C0C 
ALL 2 = ALL- 1 ♦ 

CALL ST IN T(0, ALL 2. 0,1 ,l ,TL£N2 ,NG) 

IF(NG.NE.C) GO TO 5C0C 
AKTL = ( TL SN I- TL SN 2) /2. 

AK SNL=AK TL 
1040 CDNT INUE 

OUM( 7* 7 ) = - 1 . 

OUM(7.8> = AKSNL4 12. 

DUMt 8, I ) = AL Y( GY4) 

DUMC e. 2 ) = ALSY<- SNLY.G X4.- ENLX.G Y4 ) 

DUM( e. 3 I = ALPHI ( SNLZ.G >4 £NLY»G 24 ) 

OUM( 8, 8 ) = - 1 • 

I F< KODE( 10 ) .EQ . I ) GO TO 1 C45 
Oa 1048 1=1,3 

03 1C46J=1,3 

10 46 SNUD< I, J ) = £NUD( I , J )^DUM( I . 7 ) 440 SNL40L 18 «^) 412. 

1045 CALL M ASH( 3, 8 ) 

DO 1C8C 1=1,3 
DO icec J = 1, 3 
lOBO B3TR(I.J)= CUM(I.J) 

D3 I C Q C 1=1,3 
DO 1 C S C J = 1 , 3 

1090 SSIU (I.J)= TOPR( I , J )♦ TOPL (I . J)4*BCTL ( I . J ) + E CTF ( I . J) 

IF( KODE( 10 ).E0*2) RETURN 
DO IC<5£ 1=1,3 

DO 1 C95 J= 1, 3 
1095 SNUD( I, J ) = C 
RETURN 

1002 DO 1 CCA 1=1.3 
DO I 0 0 4 J = 1 • 3 
SNUC( 1,J )=C 
1004 SNIU( I, J ) =0 
RETURN 
EN D 

SUBROUTINE TRIM 


CBL05510 
C0L 05520 
C0L 05530 
C0LO554O 
CBL05550 
CBL05560 
C0LO557O 
C0LO558O 
CBL05590 
CBL05600 
CBL 05610 
C0LO562O 
CBL05630 
CBL05640 
C0LO565O 
Cet.05660 
CBL 05670 
CBL05680 
CBL05690 
C0LO57OO 
CBL 05710 
CBL05720 
CBL 05730 
CBL05740 
CBL05750 
C0LO576O 
CBL05770 
CBL 05780 
CBL05790 
CBL05800 
CBL05610 
CBL05820 
CBL05830 
CBL05840 
CBL 05850 
CBL05860 
C0LO587O 
CBL 05880 
CBL 05890 
CBL05900 
CBL 05910 
CBL05920 
CBL05930 
CBL 05940 
CBL05950 
CBL 05960 
CBL05970 
CBL05980 
CBL05990 
CBL 06000 
CBL06010 
CBL06020 
CBL06030 
CBL 06040 
CBL 06050 



CD 0^ 


F ILE 
C 


CABL E 


FORTRAN PI 


G F l> »> »> A K 


data 


S Y S T e M S 


CABLE SLSPENSION SYSTEM TRIM RCLTIFE 
COMMON /DAT/ AERO{ 150) ,AERQP(50) ,KCOE (20 ,LL 


common / PLYCHA/R TO .XLGTH 15) *ADC (5 *3) 


• AFA 15 t3) •TR.TLFT.TF 


dimension ANG(5.3) 
EQUIVALENCE(AERO( 1), 

1 (AERO( 41, 

2 (AERO( 7), 

3 ( AERO { 10), 

4 (AERO( 13), 

5 < AEROI I e ) , 

6 (AER0(19), 

7 (AER0(22), 
( AERO( 25) , 
I AEROI 20) , 

A (AEROI 31 ) , 

B ( AERO( 34 ) , 


CD L) , (AERO( 2) 
COA).(AERO( 5) 
CDQ). (AEROI 8) 
CDO) ,(AERO(ll) 
CDDE) , (AERO( 14) 
CDAO ) , I AERO( 17) 
C YB) • (AERO(20) 
CYP) , (AER0<23) 
CYR ) , <AER0(26) 
C YOR) , (AER0(29) 
C YDA) • (AEROC32) 
C YD S) , (AER0(3S) 


CLL),(AEFG( 3), 
CLA) , (AEROI 6) . 
CIC),(AEFC( 9), 
CLC) , (AERC(I2) , 
CLCEI .(AERCdS) , 


CMU ), 
CHA), 
CMQ ), 
CMO), 
CMDE ), 


tCLAC) ,(AERC( 18),CMA0), 

• CLE) ,(AER0(21), CNB), 

• CLF) •<AER0(24). CNP), 

, CLF),(AEFC(27), CNR). 

, CLCF) ,<AEFC(30), CNOR), 

• CLCA) , (AER0(33) . CNOA), 
, CLCS) ,(AEFC(36), CNOS ) 


EQU IVALENCEI AEROI 46 ) , XCG ) • (AERC (4 7) ,ZCG) 


EQU IVALENCEI AERO 
EQU IVALENCEI AERO 
FQU IVALENCEI AERO 
EQU IVALENCEI AERO 
EQU IVAL ENCEIAERO 
II AEROI 63 ), THETA ) 
EQU IVALENCEI AERO 


(40), A MACH), (AERO 


(51) ,RHO 
I 54) ,CBAR 
I 57) , XI XX 
I 60) ,CLT 


) , (AERO 
) , (AERO 
) • (AERO 
) , (AERO 


(49) 
(52) 
(55) 
(58) 
(61 ) 


•VC ),(AERO 
• «T),(AERC 
,S k > , (AERC 
•YIVY ).(AERQ 
,CCT },(AERC 


(50), AM) 
(53), B ) 
(56) . X IXZ ) 
(59),ZIZZ ) 

(62),CMT 


)f 


1 

2 

3 

4 

5 

6 
7 
0 
9 
A 
B 
C 


I 66) 
(AERO (69) 
(AERO (72) 
(AERO (75) 
(Ai^RO (70) 
(AERO I an 
(AERO (84) 
(AERO 107) 
(AERO I9C) 
I AERO ( 93) , 
I AFRO( 96) , 


. MLLF) , (AER0I67) 
, lnLLR) , (AERO(70) 
. STAF) , (AEROI73) 
, BLMR) , (AER0I76) 
. BLCR) . (AERCI79) 
. AF) . (AERG(82) 
, HLCF) , (AER0(85) 
, DCF) .(AER0I88) 
. R VF) , (AER0I91 ) 
(AEfiO(94) , 


RHR) , 
A LR C ) , 


klLF) ,(AERC(68) 
tiiHF) • (AERC(71 ) 
STAR) ,(AERC(74) 
HLCF) , (AERC(77) 
EF) «(AERC(80 ) 
/R) , (AER0(83) 
HLCR) , (AERC(86) 
CCR) , (AERC(89) 
FHF) ,(AERC(92) 
TFO) , ( AERC (95) , 


WLUR). 
MLHR) , 
BLHF) , 
ST ACR), 
ER ). 
HUCF), 
HLCR), 
ALF), 
RVR), 
AKR), 


(AERO (97) ,STt1T > . ( AERC(9 8 ) .WLLTT ). 

I AEROI 99) , TLF TO) . (AERO (1 00) . AKiFT) •( AEROI 10 I ), ALLTO ). 
(AERO( 102) ,ALTX) ,( AERO (103) ,ALT2) 


EQU IVALENCEI AEROP { 1) 

1 (AFROPI 4) 

2 (AEROP( 7) 

3 (AEROP ( 10) 

4 

5 

6 ( AEROP (19) 

7 IAEROPI22) 

e (AEROPI25) 

Q 

A 

B (AEROP (34) 

RT C=57 .2950 
THETA=C . 

DELALF= .00 1 
DT F = . I 
DAL FAW =0.0 
DDELTE = C .0 
DT HRST = 0 .C 


C 2LF) . (AERCPI 3) 
C2AF) .(AEROPI 6) 
CZCF ) , (AEFCPI 9) 
C2CF) ,(AERQP(12) 


CXLP) . {AEROP I 2 ) , 

CXAP) . (AEROP( 5) • 

CXQP) , (AEROPI 8) , 

CXOP) . (AEHOPIl 1 ) • 

(AEROPI 13),CXDEP) ,(AEP0P(14) ,C2CEF),(AERCP(15) 
( AFROP ( 16) ,C XADP) , (AEROPd 7) ,C2ACF) , ( AERCP( 18) 

, (AEROP (20) 

. IAER0PI23) 

, (AEROPI26) 


, CY0P) 

• CYPP) 

, CYRP) 

I AEROP (2 8) ,C YDRP) . (AEROP 1 29) 
I AEROPI 31 ) .CYDAP) , (AEROPI 32) 
,C YD SP) , (AEROP (35) 


• CiEF) , (AERCP(21 ) 
, CLFF ) , (AERCPI24) 
, CLFF) • (AERCP(27 ) 
•CLCFP) . (AERCPI30 ) 
•CLCAP) ,(AER0P(33) 
,CLCSF) ,(AERCP(36) 


CMUP) 
CMAP) 
CMQP ) 
CHOP) 
CMDEP ) 
CMADP) 
CNBP) 
CNPP) 
CNRP ) 
CNDRP) 
CNOAP ) 
CNDSP ) 


CBL06060 
CBL 06070 
CBL 06080 
CBL06090 
CBL06100 
CBL 06 110 
CBL06120 
CBL 06130 
CBL 06140 
CBL06150 
CBL 06160 
CBL 06170 
CBL06180 
CBL06190 
CBL 06200 
CBL06210 
CBL06220 
CBL06230 
CBL 06240 
CBL 06250 
CBL 06260 
CBL 06270 
C0LO628O 
CBL 06290 
CBL 06300 
CBL 06310 
CBL 06320 
CBL06330 
CBL06340 
CBL 06350 
CBL 06360 
CBL06370 
CBL 06380 
CBL 06390 
CBL06400 
CBL 06410 
CBL 06420 
CBL 06430 
CBL 06440 
CBL 06450 
CBL06460 
CBL 06470 
C6L06480 
CBL 06490 
CBL06500 
CBL 06510 
CBL 06520 
CBL 06530 
CBL 06540 
CBL06550 
CBL 06560 
CBL 06570 
CBL06580 
CBL06590 
CBL06600 



FILE CABLE 


FORTRAN PI 


G 9 Kj ^ k A h 


DATA 


SYSTEMS 


ICNTR=0 

FIRST^C. 

TH INT = C . 

AL F INT = ThE TA 
DEL INT = 0 # 

THPSTO=Th INT 
AL FAWO=ALF INT 
OELTEO=DEL INT 
QS=RhO ♦VO* VGA . f# 

209 THRST I=THR STO^DTHRST 
AL F AW I=ALFAW040ALFA M 
DEL T E I =CEL TEO ♦ODELTE 
ICNTR= ICNTR I 
IF( ICN TR .GT - IOC IGO TO 520 
V AL 1 = AL FAW I*R TD 
VAL2 = CELTE I*RTD 
V AL 3=ThR ST I 

CALL EQU( ALFA W I ^DEL TEI gTHRSTI «FG tG 0 fH C «F 1 F ST I 
IF(FIRST.NE#1*IFIRST=1* 

C COMPOTES PARTIALS 

AL F AW I =AL F AW I *OELALF* 0.5 

CALL EQU( ALFA W I , DEL TE I , THR STI *F 1 ♦G I .HI »1. ) 

A. FAW I = ALFAWI--DELALF 

CALL EQU( ALFAWI tOEL TEI , THRSTI fF2 ,G2 ,H2 , 1 • ) 

AL FAWI=ALFAWI+OELALF* 0.5 
FALFWO=( F 1-F2 )/OELALF 
GALFWO=( G1*G2) /OELALF 
HALF WO =( H 1-H2 ) /OELALF 

— FOEL EO=->QS*(CLDE*COS< ALFA Wl ) ^CODE ♦ S I N C A t F A III I ) 

GO EL EO =Q S*(CLOE* SIN (ALFA WI ) -CODE *C O S { ALF 41 H I i ) 

HD EL E0=QS*CBAR*CMD£ 

THRSTI=TFR STI4DTF 

CALL EQU( ALFAWI .DEL TE I • THR STI #F1 tGl .HI « !• ) 

THRSTl=THRSTI- 2.*0TF 

CALL EQU( ALFAWI. DEL TEI .THRSTI #F2.G2«H2«1« ) 

THRST I = TFR STI *DTF 
FT hSTO=( F 1-F2 )/DTF 
GT hSTO =( G 1-G2 ) /DTF 
HT HS TO =( F 1-H2 ) /DTF 
C SET UP IT<"RATION EOLATIONS 

F I = FO + FALF WO*DALFAW*FOELEO*OOELTE^^F THSTC*CTHKST 
G I =GO +GALF WOAOALFA W^GDELEQADOELTE^G THSTC*C1HFST 
H I =F0 4FALF WO*DALFAW*HOELEO*DDELTE^H TH S T C ♦ C TFRST 
ACCZ =F I/AM 
ACCX=G I/AM 
THEDOT =F I/Y lYY 

IF( ABS< ACCZ).LT..Cl )GO TO 1 0C5 

GO TO IICC 

1005 IF( A6S( ACCX ) .L T..01 )GO TO 10C7 
GO TO 1100 

1007 IF( ABS( TFt DO T > .LE . 0*001 )GO TC 42 
C NOW COMPUTE PARAMETER I NC RE ME N T S FRCM MATFIX ECUATICNS 

I IPO OETRM=FAL FWO»GOELEO*H TH S TO+FOE LE O^G TH S T C 4 H A L F W C ♦FTHST C^GALFW O* 

I HDELE0-FTHSTD*G0ELE0*HA LF WC-F ALF W04GTHS TC <hCELEC-FD£LEG4GALFW0* 
2HT hSTO 


CBL06610 
C0L 06620 
C0L 06630 
CBL 06640 
CBL 06650 
CBL 06660 
CBL06670 
CBL 06680 
CBL06690 
CBL06700 
CBL 06710 
CBL06720 
CBL 06730 
CBL 06740 
CBL06750 
CBL 06760 
CBL 06770 
C0LO678O 
CBL 06790 
CBL 06800 
C6L06810 
CBL 06820 
CBL06830 
CBL 06840 
CBL 06850 
CBL 06860 
C8L06870 
CBL 06880 
CBL06890 
CBL 06900 
CBL 06910 
CBL06920 
CBL 06930 
CBL 06940 
CBL 06950 
CBL 06960 
CBL 06970 
CBL 06980 
CBL 06990 
CBL07000 
CBL07010 
CBL07020 
CBL 07030 
C0LO7O4O 
CBL07050 
CBL07060 
C0LO7O7O 
CBL07080 
CBL 07090 
CBL07100 
CBL071 10 
CBL07120 
CBL07 130 
CBL07140 
CBL07150 



file c^ble 


FORTRAN PI 


Q f Kj h A ^ 


DATA 


SYSTEMS 


C 


DAL FAW=C -< GOELEO^HTHSTO-G TH STa^HOELEO) ♦FC^ IF DE LE C^HTHST 0-FT HSTO 
I ♦HCEL FO )♦ GO- ( FDELEO^G TH STO-F TH STO^GDELEC ) «FtCI/CETRM 
DDEL TF=< CALF ¥0«HTHST0-G THSTG*HALF llO 4F C • IF AiF tiC ♦FT FST 0-HALFW O 
l^FTHSTj )*GO^< FALF ♦□♦G TH STO-F TH STO*G ALF C ) AHCl/CETRM 
DT HRST = (-( GALF^O^HDELEO-GOELEC#HALFIiC> ♦FC^ |F ALFHC*HCELEO-FDEL EO 
IAHALFWO )♦GO-( FALFtoQ^GOELEO-FOELEO^GALFHC) AHO/CETR^^ 

THRSTO-TFR ETI 
AL FA WO -ALFA VI I 
DELTEO=DEL lEI 
GO TO 2 0 ^ 

520 WR ITE( E, 52 1 ) 

521 FORMAT! • TRIM ITERATION EXCEEDS LIWITSM 
GO TO 52 2 

42 CALL FQU( ALFAWI^DELTEI tTHRSTI ,FC»GC*HCf !• ) 

522 DO 523 IZZ=l,4 
DO 523 IZK = 1,3 

ANGC IZZt IZK|=AOCI IZZ,IZK)^RTD 

523 CONT INUE 
THET A = ALFA t* I 
OE = CEL TE I 

T F = TFR ST I 

TH6TC = ThETA*P TD 

OED = OE4R TD 

DO 5 24 IZZ = 1,4 

IF( KODE( 5 ) .EQ •€ ) GO TO 52 6 

WR ITE< 6, 525)IZZ^XLGTHC I 2Z)«CANG(IZZ«12K> f A F M I 2 Z , I Z K > , I ZK= I , 3) 

525 FORMAT! • CABLE GEOMETRY-CABLE NC* • 1 1 2 f 5 > f • C A E L 6 LEN6TH=« t E 1 5 «6f 

!• IN«t/.3X,» DIR^ COS.^DEG A R M-I K • # / • 1 3 13 X * 2 E I 5 • 6 ♦/ I I ♦ // ) 

CONTINUE 

WP ITE! e# 5 26 )ICNTP,ACC2*ACCX,THEDCT 

526 FORMAT! • ITERATION PARAMETER = • • I 5 • / t2 > • « A CC Z =«*E15.8* 

1/. 2X, • ACCX =%E15*8»/,2X, •THEDCT=* *E15« € ,• FAC/SEC« I 

52P WR ITE( 6, 527 )THETO,OED ,TF , TP 

527 form AT! //• •VEH. A T T . ^DEFL TN • G CABLE TEFSICF«#/« 

12X.*THETA =*,F6#2*« DEG • ♦ / f 2 X , ^DE L TA ^•♦F6^2f* CEG»,/f2X 
2f • FRT CAB. TEN SION = * ,E I 5. 6 # • LB S • t / t 

32X.«RR CAB. TENSION =*.E15.6^» LBS") 

RETURN 
EN C 

SO BROUT INE: FQ L( the TA #0E » TF .FF .GG .HH fF I r s T I 
CABLE SUSPENSION SYSTEM TRIM EQUAT1C^S 


C0LO7 160 
CBL07170 
CBL07180 
CBL07I90 
CBL 07200 
CBL07210 
CBL07220 
CBL07230 
C0LO724O 
CBL07250 
C0LO726O 
CBL07270 
CBL07280 
CBL07290 
CBL 07300 
CBL07310 
CBL07320 
CBL07330 
CBL07340 
CBL07350 
CBL 07360 
C0LO737O 
CBL07380 
C0LO739O 
CBL07400 
C0LO741O 
CBL 07420 
CBL07430 
CBL07440 
CBL 07450 
CBL07460 
CBL07470 
CBL 07480 
CBL07490 
CBL07500 
CBL07510 
CBL07520 
CBL 07530 
CBL 07540 
CBL07550 
CBL07560 


COMMON /CAT/ AERO I 150) tAEROPI 5 0) tKCOE (2 0 «IL CBL 07570 

COMMON / PLYCHA/RTO .XLGTH 15) #AOC (5 #3) «AFM5 «3) •TR ,T LFT t DU MMY CBL 07 580 


R E AL ♦ e 

XNM |,XNM2,VNMl 

,YNM2 








CBL 07590 

EQU IVALENCEIAER0( 1). 

CD t) 


(AERO( 2) 


CLLI 


CAERC< 3). 

CMU )• 

C0LO76OO 

1 

(AERO( 4). 

CD A ) 


(AERO( 5) 


CLA) 


(AERCt 6). 

CMA)« 

CBL07610 

2 

{AERO( 7), 

CDQ) 


(AERO< 8) 


CLO 


lAERCt 9), 

CMQ)« 

CBL07620 

3 

<AERO( 10) • 

COO) 


(AERO< 1 1 ) 


CLCI 


(AER0(12) . 

CMQ)« 

CBL07630 

4 

( AERO( 13). 

CODE ) 


(AERO( 14) 


CLCEI 


lAEROdS) • 

CMOE), 

CBL07640 

5 

( AERO ( 16 ) . 

CDAO) 


(AERO( 17) 


CL AC) t 

( 

AERC(ia).CMAO}, 

CBL07650 

6 

(AERO( 19). 

C YB ) 


<AERO (20) 


CLE) 


(AEP0f21) • 

CNBIt 

CBL07660 

7 

( AERQ( 22). 

C YP) 


(AER0<23) 


CLF) 


(AER0(24). 

CNP)* 

CBL 07670 

8 

( A£RO( 25) , 

C YR) 


4AER0(26) 


CLf ) 


|AEf:C(27) • 

CNRIt 

C0LO768O 

9 

( AEROC 28 ) * 

C YDR ) 


(AER0<29) 


CLCF ) 


(AEROOO) . 

CNOR). 

Ca.07690 

A 

(AERO( 31 ) . 

C YD A) 


( AER0(32) 


CtCA) 


(AERO (33) . 

CNDAI* 

CBL07700 



FILE CABLF 


FORTRAN PI 


G F t A ^ 


DATA 


S Y S T E M S 


R CAERO(34)t C VO £) t (AEROI35) , C I C £ ) i I AEFO (36 ) 9 CNDS I 

EQO IVAL tNCE( AERO ( 46lfXCG) 9(AEPG(47) fZCG) 



EQ U IVAL FNCF( ATRO 

(46) 

,AMACH) 

.(AERO (49) 

«vc 

) 

.(AERC (50) 

• AM } 


EQU IVAL ENCE( AERO 

(51) 

.HHO ) 

.(AERO (52) 

, MT) 

,(AERC (53) 

«8 

) 


EQU IVALENCE( AERO 

(54) 

• CBAR ) 

.(AERO (55) 

,s* 

) 

•(AERC (56) 

• X IXZ ) 


EQU IVAL ENCE( AFRO 

( 57) 

* XI XX ) 

.(AERO (50) 

«>ni\ 

) 

.(AERC (59) 

9 Z IZZ 

) 


EQU IVAUENCEI AERO 

( 60) 

.CLT ) 

.(AERO (61) 

.CCT 

> 

•(AERC (62) 

f CMT 

) 


EQU I valence I AERO 

( 66 ) 

» XL LF ) 

« (AERO (67) • 

tlLlF) 


(AERC(68) , 

WLURI 9 


1 

(AERO 

( 69) 

. «L LR ) 

• (AER0(70) . 

HLHF) 


(AERC(71 ) . 

WLHF). 


2 

(AERO 

{ 72) 

. STAF) 

. (AER0(73) , 

S1AF) 


(AERCI74) • 

BLHF), 


3 

( AERO 

( 75) 

. BLHR) 

, (AER0(76) , 

kLCF) 


(AERC (77) .STACR), 


4 

( AERO 

( 76) 

. BLCR) 

. (AER0(79) . 

EF) 


( AERC(80> . 

EF). 


5 

( AERO 

(81) 

. AF) 

• (AERO(82) . 

AO 


(AERC(83) , 

HUCF>9 


6 

( AERO 

( 64) 

, HLCF) 

« (AERO(BS) « 

HLCF) 


(AERC(86). 

HLCF). 


7 

(AERO 

(87) 

. DCF) 

. (AERO(ee) . 

CCF) 


(AERC(89 ) , 

ALF). 


8 

( AERO 

(90) 

. H VF) 

. (AERO(91 ) . 

FHF) 


( AEROI92) . 

RVR). 


9 

1 AERO( QJ», 

RHR) , 

(AER0(94) , 

TFO) , 

(AERC (95) • 

AKF)t 


A 

(AERO( 96). 

A LR 0 ) • 

(AER0(97) ,S 

ItlT) . 

OIEFO(98) #WLLTT ). 


B 

( AERO( 99). 

TLFTC) • 

(AERO(IOO) • 

AXLFT) 

9 

(AEROClOl ). 

ALLTO ) 

f 

C 

(AERO ( 

102 ) 

,ALTX) , 

(AEPO(t03) , 

ALT2) 






DATA XNMl.XNMP / • VER TI C AL • , "HCR I ZNTL* / 

RTO-57,29fe 
V AL 1=TFETA 
Q = RH04V04 VO/2^0 
64 IN 0=KODE( t ) 

GJ TO ( 5C 1 t e02f f C3f 504) ♦! NO 
50 I YNM 1 =XNM 1 
YNM 2=XNM 2 

CALL FPLYV( STAF* teLUF t«LLF ,HUCF fHLCF ,EF t F VF ,TH£T/ 9 I ) 
CALL RPLYh( STAR tSLHR • WLHR .-AR tOCR^O* »RMF • THETA «3) 

GO TO 5 0 5 
50 2 YNM l=XNM 2 
YN M 2=XNM ! 

CALL PPL YH( STAF,BLHFt WLHF 9 AF 9 DCF 9 0# ,RHF 9 THET A 9 I ) 

CALL FPL YV( S TAR ♦ ULUR 9 WLLR UC R tH LC fi 96 F 9 F V F «THETA«3 I 

GO TO 505 
50 3 YNM l^XNM 1 
YNM2=XNM 1 

CALL FPLYV( STAF, teLUF • WLLF *HUCF •HLCF ^EF «F>«F«THETAfll 
CALL FPLYV( STAR. ^L UR .WLLR .H UC R ,HLC R 9 E R , F V F 9 THETA 93 ) 

GO TO 505 

504 YNM1=XNM2 
YN M2=XNM 2 

CALL RPL YH( STAF,BLHF 9 ^ILHF 9 AF ,DCF 9 O. fRHF 9 Tt-ETA 9 l) 

CALL «PLYh( STAR.RLHR • WLHR .-AR .OCR .0* 9RM F 9 THE T A .3 ) 

505 IF(KOOE( 1 1 > )5CE9eC795C6 

506 lALLT = WLCR ♦ AL T X« SI N < THE TA ) - A LT 2«C C S ( THE T A > 

STALT = STACR ~ ALT CO £ ( THE TA ) - A LT Z4 £I M THET A ) 
XLGTH(5) = SQRT((XiLLTT - \ILLT)*^2 ♦ (STLTT - £TALT)#*2> 

IF( F IR ST .NE *0. >GO TO 12 
ELLO=XLGTH( 5 ) 

I 2 FLL =XL CTH{ 5 > 

T^ FT = TLF TC^AKLF T<* (ELL-E LLOl 
_ APM( S. 1 ) =AL TX 
A«M( 5f a ) = C 
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CBL07780 
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CBL 07830 
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CBL081 10 
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CBL06 140 
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C8L08180 

C0LO6I9O 

CBL 08200 

CBL 08210 

CBL 08220 

CBL 08230 

CBL 08240 

CBL0B250 


FILE CABLE FORTRAN PI 


GFLItfl»AN DATA SYSTEMS 


ARM( 2 )=ALTZ 

FXLTT = (TLFT^CSTALT - STL T T ) ) / XLG TH < 5 ) 

F^LTT = { TLFTI' C t»LLT WLL T T) ) / XLG TH (5 I 
FXLTB = FXLTTACOS( THETA) - F ZL T SI h ( TH E T A ) 

FZLTB FZL TT^CO SC THE TA ) ^ F XL T T* SI M TH E T A ) 

YMLFT =C FXLTB^ALTZ - F ZL TB* A L T X) ✓! 2 • 

A0C(5» I )=A«COS(FXLTB/TLFT) 

ADC( 5f 2 ) = 3 . 14 15^/2* 

ADC ( 5, 3 )=ARCOS(FZLTB/TLFT) 

GO TO 5CE 
50 7 FXLT0-O . 

fzltb = c • 

YMLFT=0 • 

TL FT-0 
XL GTF( E ) = 0 . 

OO 13 IA=lt3 
ARM( 5. lA ) = 0. 

AOC( 5. lA >=C . 

13 CONT INUE 

50 0 CALL SNTRM ( FXSN ,F Z SN t £ M SN * THE TA > 

IF < F IRST .NE ♦0. )G0 TO 510 
IF( <ODE( 5 ) .EQ .C > GO TO 512 
WR ITE( e,50^|YNMltYNM2 

509 FORMAT! • CABLE CONF IG UR A T I ON CN MODEL* 

!• FRONT CABLE IS ••A 8 *« AND REAR CABLE IS ••A 8 I 
512 EL 0-XL CTH( 3 )>XLGTH< 4) 

510 EL =XLGTH( 3 ) + XLGTH ( 4 ) 

TR = TRO 4AKR4( EL -EL C ) 

EL IFT=Q4 SW«( CLO^CLA* THE TA 4-CLDE^DEI 
ADR AG=Q* SW4( CDO^COAA THE TA4-CD0E4OE ) 

FX A IR = -ADR AGACOSC THE TA )+ELIF T« SINC THE TA) 

FZ A IR=-ACR AG4 S INC THETA ) -EL IF T^COSC THE TA ) 

WGTX=-32#24AM4 SIN( THE TA ) 

WGTZ=3 2 •2AAM»C0S( THETA ) 

EM WGT = C 2CG4WGTX-XCG^WGTZ) /12« 

FX CR = TR4( COS{ ADC C 3t 1) )4-CO SCAOC C4«I I ) I 
FZ CR = TR4 (COSC AOCC 3»3) )4-CO SCAOC C4«3I ) > 

FX CFI-=TF4( COSC AOC C 1 • 1 ) ) 4*C O S ( A DC C2 # 1 > I ) 

FZCFF^TF ♦lease ADC | 1 « 3 ) ) 4^C C S ( A DC (2 »3 ) I ) 

EM O C = 0 . 

DO 5 11 1=1*4 

TENS=TF 

IF| I *GT • 2 ) TEN S = TR 

FMOC =EMOC 4TFN S«C COSCAOC (I • I I ) 4 AR MC I *3 I - C C S C AC C C 1 «3 ) > 4ARMC I# I ) ) 

51 1 CONT INUE 

EMnC=FMOC/ 12 • 

AER 0 M = Q«SM4CBAR4 CCM04CMA* THE TA4CMDE40E) 

FF = FZCFF4FZCR 4FZL TB 4F ZSN4 HGT24F2AIR 
GG = FXCFF4FXCR 4FXL TB +F XSN4- 4GTX4F XA I R 
HH = FM0C 4YMLFT+FMSN4-EM4GT4 AEPGM 
R ETURN 
EN C 

SUBROUTINE FPL YVC STA V»4LU»4LL •HHU«HHL«EF tTAC 9 THETA 9 IF) 

COMMON /0AT/A£R0( 150) .AER0PC5C) #KOOEC20) « IL 

COMMON /PL YCHA/RTO,XLGTH( 5) *AOC C5»3) 9 AFM |5 f3) fTFfTLFTtTF 


CBL 08260 
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CBL 0831 0 
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CBL 06510 
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CBL 08790 
CBL 08800 



FILE CABLE 


F0RTI5AN Pi 


G f C A A N 


DATA 


SYSTEMS 


ECiUIVALFNCE (AERO I 76) tWLCR) . I AERO (77) .SIACR) • < A E RC < 78 ) • 8LCR ) 
P I =3 .1 A 

GAMU= ATAN ( HHt /EP ) 

Tl^ EP^EP ♦FHU+HHL 
T2= THETA 4GAML 
IF( IE.EQ.3) T2 = GAMU-THE TA 
WLUC= WLCR 4SQRTC Tl )♦ SINC T2) 

T3= WLL -WLUC 

T4= ABS( STACR -STAVI - SQR T ( Tl ) ♦COS I T2 ) 

XLUP:= SQRT( T3^ T34"T4^T4) 

XLU= SQRT( XLUP4XLLP -RA04RAO ) 

B(jp= ATAN( T3/T4 ) 

D3U= ATANI RAO/XLL) 

0ETAU=(BUP -DBt)4RTD 
GAML = ATAN ( HHL /EP ) 

T5= EP4EP 4hHL4HHL 
T6= THETA -GAML 
IF( IF.EO-2) TE^-( THETA + GA ML) 

WLLC= WLCR ♦SQR T( T£)A SI N{ T6) 

T7= WLLC -ALL 

T8= A8S( STACR -STAV) - SQR T ( T5 ) 40 CS < T6 1 
XLLP= S0RT(T74T7 ♦TE+TE) 

X«L= SQRT( XLLP4XLLP -RAD4RA0) 

BLP= ATAN( T7/TE) 

DBL= ATAN( RAD/XLL ) 

BETAL= ( BLP -0BL)4RTD 
IF( IF^EQ . 1 )G0 TO 1 
XL GTF{ 2 )=XLL 
XL GTh( A ) = XLL 

ADC( 3t 1 )=PFTAU/R TO- THETA ♦PI 
ADC( 3, 2 )=-P 1/2* 

ADC< 3* 2 )=P l/2.--ADC( 3« I ) 

ADC( 4, 1 >=P I-( BETAL/RTO- THE TA ) 

AOC( 4, 2 ) =-P I /2 

AOC( 4, 3 ) =P 1/2- ADC ( 4.1 ) 

A«M< 3* 1 )=-FP^RAD4SIN(A0C(3*l ) ) 

AP M< 3. 2 ) =0 . 

APM( 3, 3 )=-FHU^PAD4COS (ADC (3 f I ) ) 

ARM(4, X )=-FP-P ADA SINI ADC < 4 .1 ) ) 

ARM( 4, 2 ) = 0 . 

ARM( 4, 2) -HHL-RA04CQS(A0C(4,l ) ) 

RETURN 

I XL GTF( 1 l-XL L 
XL GTH 2 ) =XLL 

ADC( 1, I )=^-BETAL/R TO^THETA 
AOC( I, 2 )=P 1/2. 

ADC( 1. 3 )=P l/2.-AOCf 1 • 1 ) 

ADC< 2t 1 )=PETAL /R TO+THE TA 
ADC( 2, 2 )=P 1/2. 

AOC( 2t 3 )=P I/2.-ADC( 2.1) 

APM( 1, l)=EP*PAD4SlN(AUC€ltl)) 

ARM( 1, 2 ) =0. 

ARM( I, 3 )=-hHU-RAD4COS(AOC (I .1 )) 

ARM( 2t 1 ) =E P-R ADA SIN (ADC (2 , i) ) 

ARM( 2, 2 ) = C . 


C0L 08810 
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FILE CABLE 


FORTRAN PI 


G F U A A A h 


DATA 


S V S T E M S 


APM( 2, 2)=HHl+RA0*C0 <(A0C (2*1 ) ) 

RETURN 
EN D 

SUBROUTINE RPL YH ( S TAD .8 LD « KLD . XP . Y P . ZF • F A C «TMET A . I F ) 

COMMON /DAT/AERO( ISO) ,AER0PC5C) ,KODEt20J ,ll 
COMMON /PL YCHA/RTD, XLGTHt 5) ,AOC (5 t3 ) » AF A |5 t3) *TF .TLFT.TF 
EQUIVALENCE<AERO< 76).WLCR) .(AER0(77) .STACF) • ( AE F C (78 ) • BLCR ) 
P I =3 . 1 A IE? 

XW T = STACfi- ETAD 
Z W T = WLCR-WLD 

XB=XWT*COS( THE TA )-ZI«T* SIN |THE TA) 

ZB=XWTA S INI THE TA > +Z («T>»C O S ( THE TA I 
T9= BLD -YP 
T 1 0=X8-XP 

XLHIP= SQRTITSAT? ♦ 1 1 C* T 1 C) 

BHIP= ATAN 21 TS. T 1 0 ) 

XLFI= SQRTi XLHIPAXLHIP -RAD*PAO) 

OBHI= ATANI RAO/XLHI I 
8HI= 8FIP -DBHI 
T 1 I=ZO-ZP 

Xw =SORT( XLHI*XLHH-Tll*TII ) 

TH 1C = T lC-RAD*COS(BHI) 

TH9=T9-RADAS1N (BHI ) 

IF( IF ,EQ -3 )GO TO 3 
XL GTHI I )=XL 
XL GTh( 2 )=XL 

AOCI 1. 1 )=ARCOS( THIO/XL) 

A DC! 1. 2 )=ARCO SI TH?/XL ) 

AOCI 1, 3 >=ARCO SI T I 1/XL ) 

AOCI 2, I ) =-ADC I 1. I ) 

AOCI 2. 2 )=P I- AOCI 1.2) 

ADC( 2, 3 )=ACC( 1,3) 

ARMI 1, 1 )=XP-RAD* SIN (BHI ) 

ARMI I, 2 ) = YP+RADACOS(BHI ) 

ARM( I, 3 ) = C . 

ARMI 2. I )=ARM( 1,1) 

ARMI 2, 2 >=-ARM (1,2) 

ARMI 2, 3 ) = C . 

RETURN 

3 XL GTH 3 )=XL 
XL GTK A ) = XL 

AOCI 3. l)=ARCOS( IHIO/XL) 

AOCI 3, 2)=ARCOS(TH?/XL) 

AOCI 3. 3 )=ARCnSI T I 1 / XL ) 

AOCI I. 1 ) --AOC 13.1) 

AOCI A, 2 ) =P 1-ADC 13,2) 

AOCI A, 3 )=ACCI 3.3) 

ARMI 2 * 1 )=XP*R AD* SIN IB HI ) 

ARM! 3, 2 )=YP-RAD*COS(BHI ) 

AR MI 3. 3 ) =C . 

ARM! A, 1 ) =ARM( 3,1) 

ARM! A, 2 )=-ARM (3,2) 

ARMI A, 3 ) = C . 

RETURN 
EN O 
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FILE CABLE 


FORTRAN PI 


G f: U A N 


DATA 


S Y S T E M S 


C 


C 

c 

c 


SOBROUT INE DLGTH(CltC2fC3,ICfI0X) 
rnMPUTES OEL-LGTH EG FOR X-Z-THETA OR Y-FSI-FHI CCEFF 

COMMON /PL YCHA /R TD, XLGTH (5 ) tAOC C5f3> ♦AR^ IS f3l t IF tTLFT »TF 
IF( ICX *NE .C )GO TO 1 
Cl=-COS( ADC< IC.ll ) 

C2=-COSl AOCI IC t3n 

c 3 = 1 ARM ( IC» I )^COS<ADC C I C • 3 ) ) - AR M ( I C *3 I ♦€ C < I ACC < I C • 1 ) ) )/ 12 « 

RETURN 

1 C I --CO S( ACC( IC ,2 ) > 

C2=( ARM< 1C , 2)^CO S( AOC ( IC , 1 ) ) -ARM (IC •!>*€€£ (ACCI 1C«2 ) ) >/12* 
C3=(ARM( ICt3)* CO S(AOC(IC»2))-ARM<IC«2 !♦€€£< AC C(IC.3)n/l2# 
RETURN 
EN C 

SUBROUT INE DCO£LG( IC *C X 1 .CZl tC Tl t C X3 «C 2 3 tC 13 > 

COMPUTES D-CIR COS EQS FOR X-Z- THETA CCEFF* 

COMMON /PLYCHA/RTOfXLGTH (5 ) tAOC (5 f3) fAR^ (5 «3) f TFfTLFT»TF 
CX l = SIN( ADC( IC # 1 ) I/XLGTHI IC>*12. 

CZ I =-COS( AOC( !C » 3 ) ) ♦CO TAN (AOC (IC»1))/XLGTF(IC)A12- 
T = ARM( ICt I ) 

ZV#T = ARM( IC. 2 ) 

CT l = ( Z WT^S IN ( ADC ( IC , I ) ) ♦ X A T*C C £ ( ADC (1 C 1 3> ) ACCT AM ACCI ICf 1 I ) )/ 
IXL GTM IC ) 

CX 3=-COS( AOC( IC. 1 ) >^COTAN (ADC (IC #3) 1 /XLGTh (lO ♦12* 

CZ3 = SIN|ADC( IC ♦ 3) )/XLGTH( ICI ♦IZ. 

CT 3 = -( ZWT*COS( AOC I IC . II I^COTAN (ADC UC.3))^XAT4SIN(ACC(1C*3I|| 
l/XLGTHC IC ) 

RETURN 
EN 0 

T-HIS IS A SINGLE PRECISION VERSION OF CABLE4 TC EE USED 
WITH THE LRC MATRIX REOtCTION AND IBM RCCT 
FINDING ROUTINE 

SUBROUT INE LONG 

COMMON /DAT/ AERO( 150) .AEROP(50> *KCOE (20 .IL 

CO MMON / PLYCHA/R TD .XLG TH (5) .ADC (5.3) •AFA(5.3) .TF.TLFT.TF 


COMMON /DU/DUM( lOflO) 

E0UIVAL6NCE( AERO ( 46). XC G ) • ( AERC 14 7) . 2CG) 

EOU IVALENCF( AERO ( 6 3 ) . THE T A ) . ( AE R 0 (49). VC ).(AERC (50)» AM) 

EQU IVALENCE( AERO (SD.RHO )»(AERO (52). A7}«(A£PQ (53). 0 ) 

EOUIVALFNCE( AERO (54),CBAR ) , (AERO (55), £A ),(AERG (56), X IXZ ) 

EQU IVALENCF( AERO (57).XIXX ) . (AERO (50) .Till ),(AERC (56)#ZIZZ >• 

1 ( AERO( S5 ) .AKR ) . (AERC ( I 00 ) • A X LF T ) 

EQU iVALENCt ( AERO( 123) . AKSY) .(AERO (124) ,4XFHI) ,( AE R C ( I 25 ), AKT HE I , 

1 (AER0(126), AKA2) , (AER0(127) , 1 1 S Y ) , I AE F C ( 1 28 ) , T 2PH I ). 

2 (AER0( 12 9) .T3THE) » (AERO (13 01 « 14 A2) 

EQU 1VALENCE( AEROP ( 1). C X LP ) . ( AE ROP ( 2). C 2 L F ) , ( AE F CP ( 3), CMUP), 

1 (AEROP( 4). CXAP) , (AEROPI 5), C 2 AP ),( AE PCP ( 6), CMAP), 

2 (AEROP( 7). CXQP) . (AEROP( 0). C 2CP) . (AEFCPC 9). CMQP). 

3 (AEROP(IO). CXOP) . (AEROPil 1 ) . C 2 C F ) . ( AEROP( 1 2 ) . CMOP ) , 

4 (AEROP ( 13) ,C XDEP) , (AEROP (14) ,C2CEF> , 4 AERCP ( 1 5 ) , CMDEP ) , 

5 ( AEROP ( 16) .CXADP) .(AER0P(17) .C2ACP) * ( AE RCP( 1 0 ) . CM AOP I . 

6 (AER0P(19). C YBP) .(AER0P(20) . C L E F ) • ( AE RQP( 2 1 ) . CNBP). 

7 (AER0P(22)t CYPP) , (AEROP (23) , C L FF ) . ( AE PCP (24 ) . CNPP), 

8 {AEROPC25). C YRP >. (AEROP (26 ) . C L RF ).( AE R CPC 27 ) • CNRP). 

9 (AEROP (2 0) .CYORP) . (AEROP C29) .CICRP) . C AERCPC 30 ) . CNDRP I . 

A ( AEROP ( 31) .C YD AP) . (AEROP (32) .CLDAP) . ( AERGP( 33 ) . CNDAP ) . 


CBL0991 0 
CBL 09920 
C0L 09930 
CBL 09940 
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CBL 10000 
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CBL 10080 
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CBL 10370 
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CBL 10450 



FILE CABLE 


FORTRAN PI 


G R L A A A ^ 


DATA 


SYSTEMS 


B C AEROP < 34) ,C YD SP> , lAERGP (35 » ,C ICSF> « (AERCF(36> , CNDSP ) 

DIMENSION CMAT(7,7,3) 
complex ROOTS! 2S) 

COMMON/SNU89/SNL<3.3) ,SN(30» . THUSN • 7H L S A ,£ ADC |3,3» 

COMMON /ROLGH/FR IC ( 3, 6) 

OIMENS ION FXS( 3.4) 

DO 10 J = 1, 3 
DO I C K = I, A 
10 FX S( J, K ) = 0. 

DO 1 I C = 1 . 5 
DO 3 J= 1, 1C 
DO 3 K = 1 ♦ 1 C 
3 0UM(J,K) = 0. 

TENS=TF 

IF( IC .C-T ) TEN £ = TR 

IF( IC.GT.4) TENS = TLFT 

OUM( 1, 2>= - TENS ♦ COSIADC (IC ,3)) 

OOM(UE)= - TENS ♦ SIN (ADC(IC.l)) 

DUM(2,2>= TENS * CO S( ADC ( IC , 1 I ) 

DJM(2,e)= - TENS ♦ SI N ( ADC ( IC ,3) » 

D0M(2,2) = ( AP m( IC , 3 )*0 UM< 1 .2 ) -arm ( I C • I ) *01. a <2 .2 ) )/ 12, 

OOM(3,£)= ARM( 1C,3)*DLM(1 ,5) /12. 

OJM( 3. e )=-ARM( IC . I )4DUM(2 ,6) /I 2. 

IF( IC «GT .2 ) GO TO 2 
DJM( 1, 3)=C0S( ACC( IC ,1 ) ) 

DUM( 2. 3 )=COS< ADC ( IC .3) ) 

DJM( 3. 3)=( ARM! IC.3)*DUM(1 .3)-ARM(IC.l)4DLA(2.3))/12« 

CALL DLGTF ( C X , C Z ,C T , 1 , 0 ) 

'-'CALL DLGTH ( C XP , C ZP .C TP . 2 . C> 

CX = CX + CXP 
XPZ =-(CZ*CZP ) /CX 
DUM( 4, 1 ) =XPZ 
XPT =-( CT+CTP ) /C X 
DOM( 4, 2 )=XPT 
OUMI 4, 4 )= - I 

CALL DCOSLG ( I C , D CM ( 5 , 4 ) ,D UM ( 5 .1 ) .D L M <5 .2 ) .CO A (6 .4 I . 

1 DUM( €, 1 ) t DLM( e, 2 ) I 
DOM! e, E )=- 1 
DUM( e, e »=- 1 
CALL MASH 2. 6 > 

DO 4 J = 1. 3 
DO 4 K = 1, 3 

4 FX S( J.K )=FXS( J.K )+OUM( J.K) 

GO TO 1 

2 IF( IC.CT.AIGO TO S 

OUMI 1. 4 ) =CO SI ACCI IC . 1 ) ) 

OUM( 2, 4 )=COS( ADC ( IC , 3 ) ) 

OUMI 3. 4 > = I ARMI IC . 3)*0 UM 1 1 .4) - AR M ( I C .1 ) 4D t A (2 .4 ) ) /I 2 • 

CALL OLGTHICX.CZ.CT.3.0) 

CALL OL GTH( CXP ,CZP ,CTP , 4, C) 

OUMI 7. 1 )=CZ+CZP 
DU MI 7, 2 )=C T*C TP 
DUM( 7, 3 )=CX+CXP 
DUMI 4. 7 )=AKR* 1 2 . 

9 CALL DCOSL G( IC ,DOM( 5, 3) ,DOM (5 ,1 ) ,0LM(5 .2) .COM (6 ,3) ,CUM(6, I ), DUM 
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CBL 10870 
CBL 10880 
CBL 10890 
CBL 10900 
CBL 10910 
CBL 10920 
CBL 10930 
CBL 10940 
CBL 10950 
CBL 10960 
CBL 10970 
CBL 10980 
CBL 10990 
CBL 1 1000 



ILE CABLF 


FOR TP AN PI 


G U A A A N 


DATA 


SYSTEMS 


l( 6t 2 ) > 

DUM( A# A ) =- 1 
OUM{ et 5 )=- 1 

^ DJMC e» e ) =- 1 
DUM( 7» 7 } =- 1 
CALL M ASF( 7) 

DO 6 J = 1 1 J 
DO e K = 1 1 3 

IF(K.NE*3)FXS(J,K):=FXS(JtK)4«OU^(JtK) 

6 IF(K«FQ#3)FXS(J#4)=FXS(J*4)^0CA|J«K| 

GO TO 1 

5 IF( KOOE( 1 1 ) #60 -C )GO TO I 

CALL DLGTHCOUMf 7*3) .DUM<7«1I •OLM(7»2) #5 *01 
DJM( 4t 7 )=AKLFT4 12* 

GO TO e 

1 CONTINUE 

ADD SNUBBER INCREMENTS 
CALL LONGSN 
DO 7 J = I , 3 

FXS(J, 1I=FXS(JW)4- SNU( J t2 ) 

FX S( J* 2 ) =FXS( J . 2 )FSNU( J .3 ) 

7 FX S( Jt 4 )=FXSC J*4)4*SNU( J.l ) 

CALL FR ICT( 0) 

THE cable FORCES/MOMENTS PARTIALS ARE CCIi^FLElEC 

AERQ* DATA IS NO\H COMPUTED 
Q=rF0*V04V0/2 • 

QS =Q4SW 
QSV=QS/VO 
^ XU=CXUP»QSV 
ZU=CZUP4QSV 
EMU = CM UP4Q S VAC BAR 
X A=CXAPAQSV 
Z A=CZAPAOSV 
EM A = CM APAQ S VAC BAR 
XQ =CXQPAQSVAC8AR/( V0A2* ) 

ZO=CZOPAOSVACf3AR/< V0A2- ) 

EM Q = CMQP AQSVACBAR /2* 

X DE=CXOEPAQS 

7DE=CZDEPAQS 

EM CE=CMDFP AQSACBAR 

X A C = CX A DP AQSVACBAR / C V0A2« I 

Z A C = CZ ADP AQ S VA CBAR / ( VGA 2*1 

EM A 0=CM A DP AQSVACBAR /( 2«A VO) 

IROXr =7 
ICOL =7 
IORCeP=3 


C8L llOlO 
CBL 11020 
CBL 1 1030 
CBL I 1040 
CBL 11050 
CBL 11060 
CBL 11070 
CBL 11080 
CBL 11090 
CBL 1 1 100 
CBL 11110 
CBL 1 1 120 
CBL 11130 
CBL 11140 
CBL 11150 
CBL 1 1 160 
CBL 1 1170 
CBL 1 i 160 
CBL 11 190 
CBL 11200 
CBL 11210 
CBL 11220 
CBL 11230 
CBL 11240 
CBL 11250 
CBL 11260 
CBL 1 1270 
CBL 11260 
CBL 11290 
CBL 11300 
C^ 11310 
CBL 11320 
CBL 1 1 330 
CBL 11340 
CBL 11350 
CBL 11360 
CBL 11370 
CBL 1 1 380 
CBL 1 1 390 
C0L114OO 
CBL 11410 
CBL 1 1 420 
CBL 11430 
CBL 11440 
CBL I 1450 
CBL 1 1 460 


DO 20 1=1, 

IRO^ 

CBL 1 1 470 

DO 2 C J = 1 . 

ICOL 

CBL 11480 

o 

c 

O 

X 

tl 

lOROtR 

CBL 1 1490 

CMATt I. J.K 

) = 0 • 

CBL 1 1 500 

EQUAT ION 


CBL 11510 

CM AT ( 1 , 1 , 1 

)^-F X5( 1 f 1 ) 

CBL 1 1 520 

CM AT( 1, 1, 2 

)=-XA-SNUD( 1#2)-FRIC<1 *5 ) -F R I C ( 1 f 2 ) 

CBL 11530 

CM ATI 1 , 1,3)=- XAD 

CBL 11540 

CM ATI 1,2, 1 

)=-EXSI 1, 2) +V»T*COS ITHETA) -XA* VC 

CBL 11550 



FILE cable 


FORTRAN PI 


G F t l» A A F 


DATA 


SYSTEMS 


CM ATI I. 2, 2 l=- XO-XAO*VO“ £N tO < | »3)-FRlC U .6) 'FFI C«1 .3 > 

CMAT( I , 2, 2 » = ZCG*AM/12« 

CMAT( 1, 3, 1 )=-FXS( 1,3) 

CM ATI 1,4, 1 )=-FXS( 1.4) 

CM ATI 1. 4, 2 )=-Xt-£NUD( 1 , D-FRIC ( 1 ,4 } -FRl C ( 1 ,1 ) 

CM AT( 1, 4, 3 »=AM 
CM ATI 1, E, I )=-XDE 
: FZ EQUATION 

CM AT ( 2, 1, 1 )=-F XS( 2,1) 

CM ATI 2, 1, 2 )=-ZA- SNUDI 2 , 2) -FR I C (2 ,5 ) >FR I C I 2 *2 ) 

CM ATI 2,1,3 >=AM-ZAD 

CM AT ( 2, 2, 1 )=-FX£( 2,2>-fMT4£IN ( THETA) -ZA4 

CM AT I 2, 2, 2 )=-ZQ-ZAD4VO- SN tO 12 ,3)-FRIC <2 .6 I >FPICI2,3) 

CMATI 2, 2, 3 )=-XCG4AM /I 2. 

CM ATI 2, 3, 1 )=-FXSl 2, 3) 

CMATI2,4, l)=-FX£I2,4) 

CM ATI 2, 4, 2 )=-Zt- SNUDI 2, 1 ) -FRI C 1 2 .4 ) -FRI C <2 , 1 ) 

CM ATI 2, 5, 1 )=-ZDE 
: MOMENT EQUATION 

CMATI3. 1. 1)=-FXSI3,1) 

CM ATI 3, 1, 2 )=-EMA- SNLOl3,2)-FRIC(3,5)-FRICI3,2) 

CMATI 3, 1. 3 )=-EMAD*CBARaXCG4AM/12. 

CM ATI 3. 2, 1 )=-FX£I 3, 2 ) -E MA 4 V04 2CG4 W T4CCS f IFET A ) / 12. 

1-X CG4WT* £ IN ( theta )/ 12, 

CM ATI 3, 2. 2 )=I-EMQ-EMA0 4 VO )4CBAR-SNU0 13 , 3 ) -F R I CI3 ,6 ) >FR 1 Cf 3 , 3 ) 

CM ATI 3, 2, 3 )=Y I YY 
CM ATI 3, 3, 1 )=-FX£l 3, 3) 

CM ATI 3, 4. 1 )=-E X£I 3,4) 

CM ATI 3, 4, 2 )=-FML-£NUD 13,1 )-FRIC 13 .4 } -F R I C 13 • 1 ) 

CM ATI 3, 4, 3 ) = ZCG*AM/ 12. 

CMATI 3, 5, 1 )=-EMDE 
: CONSTRAINT EQUATION 

CM ATI 4,1,1)=- XPZ 
CMATI 4, 2, 1 )=-XPT 
CM ATI 4, 4, 1 )= 1 
C FEEDBACK LOOP EQUATION 
CM ATI 5, 2, 2 )=AK THE 
CM ATI 5, S. 2 )=- I4IHE 
CM ATI 5, 5, 1 )=- 1 . 

IM 

N=KOOEI 8 ) 

CALL MATRIX(CMAT,N,R00T£,K4A,IER) 

IF! KOOEI E ) ,NE ,C) )*R I TE I I M , 1 0 C ) lER 

100 FORM ATI 2X, • lER = • , I 3.3X , • SEE SUBR. PCFB AAC FREA FOR ERROR CODE*) 

: THE ROOTS OF THF CHARAC. EQUAT. ARE IN THE CCAFLEX ARRAY 'ROOTS* 

" AND THE NUMBER OF ROOTS IS • K4A • 

CALL PRINTRI I M,R00TS,K4A) 

RETURN 
EN C 

SUBROUTINE PRINTR I LO UT ,R T ,NRCC T) 

O IMENS ION HTI 2, 1 ) 

rOMMENT PRINTS PERTINENT INFORMATION ABCUT CH A R AC TE R 1ST 1C ROOTS 
MR ITEI LOUT, 507 ) 

51 FORMATI • REAL IMAGINARY t H/C-SEC l/T H/ « 

1 *r» PERIOD-SEC DNATF-CFS UNCNAT-CPS DAMP • 


CBL 11560 
CBL 1 1570 
CBL 11580 
CBL 11590 
CBL 11600 
CBL 11610 
CBL 11620 
CBL 11630 
CBL 11640 
CBL 11650 
CBL 1 1660 
CBL 11670 
CBL 11680 
CBL 11690 
CBL 11700 
CBL 11710 
CBL 11720 
CBL 1 1 730 
CBL 11740 
CBL 11750 
CBL 11760 
CBL 11770 
CBL 11780 
CBL 11790 
CBL 11800 
CBL 118 10 
CBL 11820 
CBL 11830 
CBL 11840 
CBL 1 1 850 
CBL 1 1 860 
CBL 11870 
CBL 11880 
CBL 1 1890 
CBL 11900 

ca. 11910 

CBL 1 1920 
CBL 11930 
CBL 11940 
CBL 11950 
CBL 11960 
CBL 11970 
CBL 11980 
CBL 11990 
CBL 12000 
CBL 12010 
CBL 12020 
CBL 12030 
CBL 12040 
CBL 12050 
CBL 12060 
CBL 12070 
CBL 12080 
CBL 12090 
CBL 12100 



FILE CABLE 


FORTRAN PI 


G f KJ It h A h 


DATA 


SYSTEMS 


2 •RATIO DECAY RATIC • 

NEXT = 1 

DO 52C I^lfNROOT 
^ IF( NFX T *£0 ) GO TO 777 

S I G=RT( It I ) 

AS IG=A8SJ S IG I 
C-A0S( PT( 2,1)) 

THD != AS IGA 1 .442tS5 
THD= 

IF ( TKD I .GT . 1 .E-E ) THO = l*/THOI 
IF( AWO .FO .O* ) GO TO 5Jl 
NEX T = 2 
W D=-AW C 

DNIAT= AWn A .leqiss 
PER= 

IF( DNAT.GT .l.E-E) PER = l./ONAT 

UN ON AT = SQ«T( A SIGAA 2AA WDA*2> ♦•1591550 

OAMPR= 0. 

IFC AWD - 1*E1E ♦ ASIG ) 503.5C4.504 

503 DAMPR= SIGN ( COS( ATAN ( AWO/ASiG > )« -SIG ) 

504 CHDT= ThOIAPER 

DECR = 5<599<; • 

ARG= SIG ♦ PER 

IFC ARG.LT. 174.C) DECR = EXP CARG) 

WR ITE( LOUT, 5 29) S IG , WD , THO , THO I ,PE R ,0 NA T ft ^C N iT ,CAI^FR,CHC I, CECR 

529 FORMAT! IP E 1 2 • 4 • 2 X . IHA . iPE 1 1 • 4 . 1 P8E 1 3 • 4 ) 

GO TO 520 

5 WR ITE( LOUT, 532 ) SIG.THD,THDi 
5^ FORMAT! IPE 12.4 t 14X. 26 13.4 ) 

GO TO 5 3 C 
777 NEXT=1 

530 CONT INUE 
RE TURN 
EN C 

SUBROUTINE MASH INN.NI 
COMMON /nU/OUM ( I C. 1 C) 

C NN = FINAL MATRIX SIZE 
C N = ORIGINAL MATRIX SIZE 
IN N=N-NN 

DO I CO 1 LL = It INN 
L = N4 1-LL 
I I =L- 1 
J J =L- I 

DO I C 0 I I = 1 1 I I 
DO I C 0 1 J = 1 1 J J 

100 1 OUM(l,j)= OUM(I*j)>OUMCLtJ)AOLMI.L)/C-CLIhCL.L)) 

RE TURN 
EN D 

SUBROUTINE LAT 

COMMON /PAT/ AEROC I 50) tAEROPCSO) .KOOE <20 ,iL 

COMMON / PLYCHA/RTO .XLGTH (5) .ADC < 5 . 3 ) . A F A <5 g3 1 fTF.TLFTtTF 

COMMON /DL/OUMC lOtlC) 

EOU IVALENCECAEROC 46). XCG) • f AERO (47) . 2CG ) 

EQU IVALENCE! AERO ( 6 2 ) . THE TA ) . C AEP O (491 tVC I.CAEFC (50). AM) 

EOU IVALENCE! AERO (51),RH0 ) . (AERO (52) ♦ HT)«(AERG (53), B ) 


)C6L 12110 
CBL 12120 
C8L 12130 
CBL 12140 
CBL 12150 
CBL 12160 
CBL 12170 
CBL 12100 
C0L 12190 
CBL 12200 
CBL 12210 
CBL 12220 
CBL 12230 
CBL 12240 
CBL 12250 
CBL 12260 
CBL 12270 
CBL 12280 
CBL 12290 
CBL 12300 
CBL 12310 
CBL 12320 
CBL 12330 
CBL 12340 
CBL 12350 
CBL 12360 
CBL 12370 
CBL 12380 
CBL 12390 
CBL 12400 
CBL 12410 
CBL 12420 
CBL 12430 
CBL 12440 
CBL 12450 
CBL 12460 
CBL 12470 
CBL 12480 
CBL 12490 
CBL 12500 
CBL 12510 
CBL 12520 
CBL 12530 
CBL 12540 
CBL 12550 
CBL 12560 
CBL 12570 
C8L 12580 
CBL 12590 
CBL 12600 
CBL 12610 
CBL 12620 
CBL 12630 
CBL 12640 
CBL 12650 


r IL E CABLE 


FORTRAN PI 


G F t N A A A 


DATA 


S y S T E M s 


EQU IVALENCEI AERO (541 
E;JU IVALENCEt AERO (57) 


(AERO( 95)»AKR) ,(AE 


CBAR ) 
XI XX ) 


(AERG (55) 
(AERO (58) 


RO (1 00) tAKLFT) 


S» )«(AERC (56) 
>l>> ) .(AERC (59) 


EQU IVALENCEI AERO( 123) . AK £ Y) , (AERO (124 ) «A AFHl ) • (AEf:C(125 ) 

1 (AERO(l26). AKA2) • (AERO( 127) . TISV) f (AERCI 128 ) 

2 (AERO( 129) «T3THE) t (AERC(130) « T4A2) 

EQU IVALENCEI AEROP( 1). C X UP ) « (AERCP ( 2)« C2LF) • ( AEPCP( 3) 

1 (AEROP( 4), CXAP) , (AEROP< 5), C 2 AP) • ( AEROP( 6). 

2 |AEROP( 7), CXQP) , (AEROP( 8), C 2 CF ) « ( AERCP ( 9) 

3 (AEROP(IO)* CXOP) • (AEROPd 1 ) « C 2 C F ) • ( AE RGP( 1 2 ) 

4 (AEROP (13) tCXOEP) , (AER0P(14) •C2CEP) t(AEP0P(15) 

5 (AEROP( 16)«CXADP) «(AER0P(17) .C2ACF) «(AERCP(18) 

6 (AEROP(19). C YBP) • (AEROP<20) . C LE F) • < AER0P(2 1 ) 

7 (AEROP(22), C YPP) , (AER0P(23) , Cl FFI , ( AERCF(24 ) 

8 (AEROP(25), C YRP) • (AEROP(26) . CLRF ) • ( AERCP(27 ) 

9 (AER0P(28) «C YORP) • (AER0PI29) «CLCFF> •(AEPCP(30) 

A (AEROP (31) ,CYOAP) , (AEROP (32) ,CLCAF) , (AEROP (33) 

B (AER0P(34) .CYDSP) • (AER0P<35) •CLCSF) «(AERCP(36) 

dimension CMAT(7»7,3) 

COMPLEX ROOTS! 29) 

COMMON/SNUBB/SNL( 3, 3) • SN( 3 0 . THU SN • THL £ A « S MX <3 «3 ) 
common /ROUGH/FR IC( 3.6) 

DIMENSION FXS(3,3) 

DO 10 J= I, 3 
DO 10 K= 1. 3 
t FXS(J,K) = C. 

DO 111 IC=1»5 

IF(KODE( 11 l.EO.C.ANO. IC.EQ.5)GC TC 1 
DO 3 J = 1 , e 
DO 3 K = 1 , 8 
I DUM( J. K ) = 0 . 

TENS=TF 

IF( 1C -GT .2 )TEN £ = TR 
IF( IC .GT .4 MEN £ = TLF T 
CA 1=CQS( ADC( IC , 1 ) ) 

CA2 = CO S( ADC( IC . 2 ) ) 

CA3 = COS( ADC( IC.3) > 

IF( ABS( CA 1 ) .L T , .CCO 1 ) CAl=C. 

IF( ABS( CA 2 ) .L T . .OCO 1) CA2=C. 

IF( A8S(CA3 ) .L T..0C01) CA3 = 0. 

OUM( 1, 2)=-TENSACAl 
OUM( 1, 3 ) = TENS*CA3 
DUM( 1. 4 ) =CA 2 

DJM( 1, C )=-TENS*SIN( ADC ( 1C ,2 ) ) 

OJM( 2. 2 ) = ( ARM( IC , I )*OUM( 1 .2 ) - AR M ( 1 C .2 ) « T E FS 4 C A2 )/ 1 2 • 
DUM(2,3)= ARM ( IC , 1 )*D UM ( 1 ,3) /12. 

OUM( 2, 4 ) = ( ARM( 1C , I )*CA2-ARM( 1C*2)4CA1)/12. 

OUM( 2. 5 ) = ARM( IC.2)4TENS*£IN(ADC(IC.1))/12. 

DUM(2. ei= ARM( IC . 1 » *DUM ( 1 ,6) /I 2. 

OU M ( 4 , 4 ) =- I . 

DUM( 4, e ) = C . 

I F ( I C . GT . 2 )OUM ( 4 , 6 ) =A KR ♦ 1 2 , 

IF{ IC .GT .4 )OUM( 4. 8 ) =AKLF T*12- 
DUM( 3. 2>=-ARM( IC«3)4DUM(1 .2) /12. 

OUM( 3, 3)=(-ARM( IC,3)*DUM( 1 « 3 ) -ARM ( I C .2 ) 4TEFS4CA2)/12. 


CBL 12660 
CBL 12670 
CBL 12680 
CBL 12690 
CBL 12700 
CBL 12710 
CBL 12720 
CBL 12730 
CBL 12740 
CBL 12750 
CBL 12760 
CBL 12770 
CBL 12780 
CBL 12790 
CBL 12800 
CBL 12810 
CBL 12820 
CBL 12830 
CBL 12840 
CBL 12850 
CBL 12860 
CBL 12870 
CBL 12880 
CBL 12890 
CBL 12900 
CBL 12910 
CBL 12920 
CBL 12930 
CBL 12940 
CBL 12950 
CBL 12960 
CBL 12970 
CBL 12980 
CBL 12990 
CBL 13000 
CBL 13010 
CBL 13020 
CBL 13030 
CBL 13040 
CBL 13050 
CBL 13060 
CBL 13070 
CBL 13060 
CBL 13090 
CBL 13100 
CBL 13110 
CBL 13120 
CBL 13130 
CBL 13140 
CBL 13150 
CBL 13160 
CBL 13170 
CBL 13180 
CBL 13190 
CBL 13200 



ILE CABLE 


FORTRAN PI 


G E t A A N 


DATA 


SYSTEMS 


DUM ( 3, 4 ) = ( ARM ( IC . 2 ) AC A 3-A R M ( 1 C .3 > AC A2 ) / 1 2 • 

OJM( 3, 7 ) s-ARM ( IC , 2 )ATEN£A SIN (ADC ( IC «l ) } /12. 

OJM( 2 , e »=-ARM( IC ,3)A0UM (I ,6) /12. 

CALL OCOSO( IC. DUM (5.1 ) ,0UM(5.2) .D UM f S .3 I . C L A (6 . 1) . CU A (6 .2 » . DUM ( 
16. 3). DUM( 7, 1 ) . DUM( 7,2) .DUM (7 ,3)) 

DUM( 5. 5)=- 1. 

OJM( e. 6 )=- 1. 

DUM{ 7, 7)=- I , 

IF( IC .GT .2 )GO TO 2 
CALL MASH( 3, 7) 

6 DO 4 J = l,3 
DO 4 K = 1 . 2 

4 FX S( J.K )=FXS( J.K lADUMI J .K) 

GO TO I 

2 IF( IC«GT.4)G0 TO 5 

CALL OLGTH(CY.CPS,CPH,3,l ) 

CALL DLGTH(CYP,CPSP ,CPHP,4.I ) 

OUM( e. 1 )=CY»C YP 
OUM( e, 2 )=CP£+CPSP 
OUM( e. 2)=CPF<-CPHP 
DUM( E, e)=- 1 . 

CALL MAShI 2,6) 

GO TO € 

5 IF( KOOEC I 1 ) .EO.OIGO TO 1 

CALL DLGTH(DUM(8, I) ,DUM(8.2) , DUM (8, 3) ,5 ,1 ) 

OUM( 6. 6)=- I. 

GO TO e 
CONT INUE 
CONT INUE 

complete SUMMATION OF CABLE FORCES £ ACMEMS 
ADD SNUBBER INCREMENTS 
112 CALL LATSN 
DO 9 J = I, 3 
DO P K = 1 , 2 

8 FX S( J.K >=FXS( J .K )*SNU( J .K ) 

CALL FR ICT( 1 > 

ADD AERO INCREMENTS 
Q = .ear HO A VO A VO 
QS=QASW 
QSV=QS/VO 
BO V = B/( 2 .A VO » 

YV=CYBPAQSV 
EL V=CL BP AQ SVA8 
ENV=CN BP AOSVA0 
YP = CYPPAQ SABO V 
e_ p=clppabovaq sab 

ENP = CNPP ABOVAO SAB 
YR =CYRPAQ SAfJO V 
EL R = CL RPABOVAQ SAB 
ENR = CNRPABO VAQ £AB 
Y DR =CY ORPAOS 
EN OR =CNDRP AQ SAB 
El. dr =CL DRP AQ SA B 
YDA=CYOAPAQS 
EM CAsCNCAPAQSAB 


CBL 13210 
CBL 13220 
CBL 13230 
CBL 13240 
CBL 132S0 
CBL 13260 
CBL 13270 
CBL 13280 
CBL 13290 
CBL 13300 
CBL 13310 
CBL 13320 
CBL 13330 
CBL 13340 
CBL 13350 
CBL 13360 
CBL 13370 
CBL 13380 
CBL 13390 
CBL 13400 
CBL 13410 
CBL 13420 
CBL 13430 
CBL 13440 
CBL 13450 
CBL 13460 
CBL 13470 
CBL 13480 
CBL 13490 
CBL13500 
CBL 13510 
CBL 13520 
CBL 13530 
CBL 13540 
CBL 13550 
CBL 13560 
CBL 13570 
CBL 13580 
CBL 13590 
CBL 13600 
CBL 13610 
CBL 13620 
CBL 13630 
CBL 13640 
CBL 13650 
CBL 13660 
CBL 13670 
CBL 13680 
CBL 13690 
CBL 13700 
CBL 13710 
CBL 13720 
CBL 13730 
CBL 13740 
CBL 137S0 


f 


FILt CABLE FORTRAN PI 


G f: t »> A A K 


DATA SYSTEMS 


EL CA=CLDAPFQST‘6 
YDS=CYOSP*Q£ 

^ EN CS=CND£P*OS*0 
El O S =CL D £P *Q S* 0 
DO 113 1=1,7 

DO 1 13 J = 1, 7 
DO 1 13 K= I, 3 
113 CMAT( 1,J,K ) = 0. 

C Y FORCE EQUATION 

CM AT( I, 1, 1 )=-FXSn, 1 ) 

CM AT( 1, 1, 2 )=- YV-SNUO ( 1 ♦ 1 ) -FRIC (1 .4 > -F R I C < I , I ) 

CM AT( 1 , 1,3 J=AM 

CMATt 1,2. 1 )=-FXS( 1,2)*YV* VO->»T*£lNnHETA» 

CM AT( 1,2,2 l=- YR-SNUO( 1,21 -FR 1C(1 ,5l-FfiIC(l,2l 
CM ATI 1 , 2, 3 )=AM* XCG / 12. 

CM ATI 1,3, 1 )=-FX£( 1. 31 - T* CO S C THE TA 1 

CM AT( 1, 3, 2 l=- YP- SNUDC 1 ,3)-FRIC (I ,6) -Ffil Cll ,3) 

CM AT C 1, 3, 3 )=-AM4 7CG/1 2. 

CM AT( 1,4, 1 |=-Q £*C YDRP 
CM ATI 1, E, 1 )=-Q £4C YDAP 
C YAM EQUATION 

CM at ( 2, 1, 1 )=-F XS( 2, 1) 

CMAT(2, 1, 2 )=-ENV-SNUD I 2 , 1 1 -F R 1 C (2 ,4 ) -F R I C (2 , 1 1 
CMAT(2, 1,3 )=AM*XCG/12. 

CMAT< 2, 2, 1 l=-FX£( 2, 2 ) M-E NV4 VO- XCG* M T* SI MTFETAI/12. 
CM AT( 2, 2, 2 M-ENR- SN LO ( 2 ,2>-FHlC (2 ,5 1 -F R I C (2 ,2 > 

CM AT( 2, 2, 3 )=Z 1 ZZ 

CM AT ( 2, 3, 1 )=-FX£( 2, 3) + XCG ♦ \»T*CC £< THETA) /12. 

CM AT( 2. 3. 2 )=-ENP- SN UD ( 2 . 3 ) -FR I C (2 ,6 ) -F R I C <2 ,3 ) 

CM AT( 2, 3, 3 )=- X 1 XZ 
CMAT< 2, 4, I >=-Q £*0*CNDRP 
CM AT( 2, £, 1 )=-Q S*0*CNDAP 
C ROLL EQUATION 

CMAT(3, 1, 1 )=-FXS(3,l) 

CMAT( 3, 1, 2 )=-EL V- SNUD (3,1 )-FR I C (3 ,4 ) -F R I C (3 , 1 ) 
CMAT<3. I, 3)=-AM*ZCG/12. 

CMAT< 3, 2, 1 )=-FXS{ 3, 2 ) +E L V* VO- 2CG * M T* S I R<TEETA)/12. 
CM AT ( 3, 2, 2 )=-ELR-SNUD ( 3 ,2 1-FRlC (3 ,51 -FRI C (3 ,2) 
CMAT( 3, 2, 3 )=-XIXZ 

CMAT< 3. 3. 1 )=-FXS( 3, 3 ) - ZCG * X T* C C £ ( THETA) /I 2. 

CM AT( 3, 3, 2 »=-ELP-SNUO ( 3,3)-FRlC (3 ,6) -FRIC (3 ,3) 
CMAT( 3, 3, 3 )=X1 XX 
CM AT ( 3, 4, I )=-Q £*0*CL0RP 
CMAT( 3, 5, 1 )=-Q £*B*CLDAP 
C RUDDER FEEDBACK LOOP 
CM AT( 4,2,2 )=AK £Y 
CM AT( 4,4,2 >=- T3SY 
CMAT(4,4, 1)=-1. 

c aileron feedback loop 

CM A T( 5, 3, 2 )=AKPHI 
CM AT( 5, 5, 2 )=- T2PHI 
CM A T { 5 , 5 , 1 ) =- I . 

IM =€ 

^ N = KODE( <5 1 

CALL MATR 1 X( CMA T , N ,ROO T S , K4A ,IER) 


CEL 13760 
CBL 13770 
CBL 13780 
CBL 13790 
CBL 13800 
CBL 13810 
CBL 13820 
CBL 13830 
CBL 13840 
CBL 13850 
CBL 13860 
CBL 13870 
CBL 13880 
CBL 13890 
CBL 13900 
CBL 13910 
CBL 13920 
CBL 13930 
CBL 13940 
CBL 13950 
CBL 13960 
CBL 13970 
CBL 13980 
CBL 13990 
CBL 14000 
CBL 14010 
CBL 14020 
CBL 14030 
CBL 14040 
CBL 14050 
CBL 14060 
CBL 14070 
CBL 14080 
CBL 14090 
CBL 14 100 
CBL 14110 
CBL 14120 
CBL 14 130 
CBL 14140 
CBL 14150 
CBL 14160 
CBL 14170 
CBL 14 180 
CBL 14190 
CBL 14200 
CBL 14210 
CBL 14220 
CBL 14230 
CBL 14240 
CBL 14250 
CBL 14260 
CBL 14270 
CBL 14280 
CBL 14290 
CBL 14300 


FILE CABLE 


FORTRAN PI 


G F C »> l» ^ h 


DATA 


SYSTEMS 


IF( KOOE( £ ) .NE .C ) tiR I TE ( I M yl OO ) lER 
100 F0PMAT( 2X, • IER = *. I3.3X, «SEE SCBR. PQFB 


FfEA 


ERROR CODE* ) 


HE ROOTS OF THE CHARACTERISTIC EQLAT. ARE IF THE COMPLEX ARRAY 
•ROOTS* ANC THE NLMBER OF ROOTS IS *K4A* 

CALL PRINTRI IV»,R00TS*K4AI 

RETURN 

EN C 

SUSROUT INF DCO SO ( IC #C Y 1 ,C P SI 1 ,CPHI 1 ,C V2 ,CPS12 .CPHia .CY3 .CPS 13. 

ICP F I 2 ) 

COMMON /PLYCHA/RTD, XLGTHt 5) ,AOC (5 .3 ) .AP M£ ,3 ) .TR.TLFT.TF 
XM T=ARM^ IC. n 
YWT = ARM( IC. 2 ) 

T=ARM( IC , 3 ) 

CY l=-COS( ADC( IC . 2) ) ♦CO TAN (ADC (IC,l))/XLGTF(IO<ll2. 

C=S I I=-( YWT4SIN ( ADC I IC , U » ♦ X ♦ T+C OS < ADC ( I C ,2 ) ) *CCTAN( AOC( I C. I ) ) ) 
l/XLGTH( IC ) 

CP HI I = ( ZWT4COS(AOC( IC ,2 ) > ♦CO TAN (ADC (IC .1* ) - >4T «CCS ( ACC ( IC.3I )♦ 
1C0TAN( ADC( IC, 1 > ) ) /XLG TH ( I C ) 

CY ? = S INC ADC( IC . 2 I I/XLGTH ( IC) ♦12. 

CPSI2 = ( Y»*T^COS(AOC( IC . 1 ) ) ♦CO T AM ADC ( I C ,2 ) ) ♦ AUT «S IN ( ACC ( IC.2)))/ 
IXL GTF( IC > 

CP H I 2=-( ZWT^SINCADCCIC .2) ) ♦ Y 4 T4C OS < ADC ( 1C .3) ) 4CCTAM ADCC I C. 2 ) ) ) 
1/XLGTHI IC ) 

CY 3=-COSCACCC IC,2))4C0TAN (A0C(IC,3) ) / XLG TH U C ) *1 2. 

C»S I3=C YW T4 cose ADC ( IC . I ) ) 4C0 T A M ADC ( I C .3 ) ) -X4T *CCS I ACC ( IC.2 ) )♦ 

ICO T ANC ADC ( IC. 3 ) > ) /XLGTH CIO 

CPHI3=C ZWT^CO S(AOC( IC ,2) ) AC OTA N ( ADC ( I C , 3 ) ) ♦ Y4 T «S IN ( ACC ( IC,3 ) ) ) 
l/XLGTHl IC ) 

RETURN 

END 

SUBROUTINE SNTRM ( F XSN ,F Z £N ,A M SN , THE T A ) 

COMMON /OAT/AEROC l£0).AEROPC5C) .KODE (20) ,LL 
COMMON 7ZZ C 200 ) 

CDMMON/TABI/ZZCECC) 

COMMON /SNUBO/SNLC 3. 3) . SNC30) . THUSN « TH L S F . S NUC (3 .3) 

EQUIVALENCE(AER0( 105) . SNLX) . (AEROCl 06) • S FL Y ) , ( AE R C ( 1 07 ) . SNUZ), 

1 (AERO(lCe). SNLX) .(AEROClOO) . S FL Y) . ( AE RCC 1 10 ) . SNLZ ) 

2 C AERO Cl 11 ) .SNLST) .(AERO (112) .SFL4L) .(AERCC113).SNUBL) 

3 (AERO ( 1 14) .SNLST) , (AERO (115) . S FL 4L ) « ( AERO (1 16 ) « S NL BL ) 

4 ( AEROC 117). TUSNO) .(AERG(lie)«TL£FC).(AERC(119). AKSNU ) 

5 (AEROC 120). AKSNL) .(AERD(49) . V C ) • ( AERO (5 1 ) . RHO). 

6 ( AEROC 76) ,WLCR) .(AERO (77) .STACFI, 

7 ( AERO { 78) .BLCR) 


. SFLY) , (AERCI107) . SNUZ), 
). SFL Y) .(AERCC 1 10 ) . SNLZ). 


EOU IVAL ENCE 


C SN( 1 ) , 
I SN ( A ) , 
( SNC 7) . 
( SN ( 1 0 ) • 
( SNC 13) . 
( SNC 16) • 


G XI ) • C SNC 2) . 
GX2) . (SN( 5) . 
G X3) • (SNC 8) . 
GX4) .(SN(ll) , 
THU) .( SN (14 ) . 
ALL ) . 


GYl ) .(SF ( 3) . GZl ). 
G Y2) . (SF ( 6) • GZ2)» 

G Y3) ,(SF ( 9) • GZ3) » 
GV4) ,(SF(12) • 6Z4). 

THL) .(SF (15) • ALU). 


IM 

IF(K0DE( 10 ) 


(SNC 15 ) , THG XI ) . ( SN (20) . THGYl ) . (SN (21 ) .THGZl ) . 
( SN( 22) .THGX2) .CSNC23) .THGY2) .CSF(24) .THGZ2). 
( SN( 25) , THG X3) . ( SN (2 6) ,THG Y3) , (SF (27) .THGZ3) . 
( SN( 2E) .THG X4 ) . C SN (2 9) . THG Y4 ) . (SF (30) .THGZ4 ) 

,EQ.C) GO TO 5CC5 



FILE CABLE 


FOP TR AN PI 


G F t » f» ^ K 


DATA 


SYSTEMS 


CALL CPC SN ( THE TA ) 

IF( Knot ( 10 ) .NE . 1 ) GO TO 5CC3 
C 9MS TO MOOei. SNUBOEW EFFECTS (VCDEL U^S^LeEEC) 

O = . 5 fP HO ♦ VO ♦ VO 

CALL ST IN T(0, ALU , C, 1 , 1 , TU SN,NG ) 

IF(nC.NE.O) go to 5CCC 

CALL ST INT (Q , ALL * 0, 1 , I , TL SN, NG ) 

IF(NG.NE.C) go to 5C0C 
CALL ST INTCQ, ALU. C,2,2 ,THLSN ,NGJ 
IF(NG.NE.O) GO TO 5C0C 
CALL ST INT(Q, ALL , 0,2.2. THLSN.NG) 

IF(NG.EO.O) GO TO 5001 
5000 WR ITE( IW, 5002 ) NG,ALL,ALU,Q 

5002 F3RMAT( 2X, 'ERROR IN SNUBBER TABLE 1-2 , ^G= • , 13 ,3 E 1 0 .3 ) 

RETURN 

500 I CONT INUE 

C CALCULATING FORCE AND MOMENT EFFECTS 

CALL ORCUSN( THETA » 

FXUSN= 2«*TUSN^GX1 

FTUSN= ?.»TUSN+GZ1 

AMUSN= -FXLSN* SNU2+SNUX+F 2USN 

FXLSN= 2.+ TLSNAGX3 

FZLSN= 2.+ TLSN*GZ3 

AMLSN= FXL SN*SNLZ+F2LSN*SNLX 

FX SN = FXUSNTFXLSN 

FZ SN = FZUSNAFZLSN 

AM SN =( AMUSNAAMLSN) /12* 

RETURN 

5w3 CONTINUE 

C TERMS TO MODEL SNUBBER EFFECTS (MCOEL SNUBEEC) 

FXUSN= 2.*TUSNO*GXl 

FZUSN= 2«*TUSNO*GZl 

AMUSN =-FXLSN* SNUZ+F ZUSMt SNUX 

FXLSN= 2.*TLSNO*GX3 

FZLSN= Z.»TLSN0*GZ3 

AMLSN = FXLSN* SNLZ+FZLSN* SNLX 

FX SN = FXUSN*FXLSN 

FZ SN = FZL SN+FZL SN 

A^«SN =( AMUSN tame SN ) /I 2. 

RE TURN 
5005 FXSN=0 
FZ SN = 0 
AM SN = O 
RETURN 
EN D 

SUBROUTINE LONGSN 

COMMON /DA T /AERO ( 150) .AEROP (50) ,KODE (2 0) «LL 
common /SNUBB/SNU( 3 , 3 ) , SN( 3 0 ) , TH USN , THLS f , S FUC (3 .3) 

COMMON Z7Z ( ZOO ) 

COMMON /TAB1/ZZ(E0C) 

COMMON/DU/rUM ( 1C, 10) 

EOU IVALENCE(AERO( 105) , SN LX ) , ( AERO C 1 06 ) . S ft V ) . ( AERC ( 1 07 ) , 


CBL 14860 
CBL 14870 
CBL 14880 
CBL 14890 
CBL 14900 
CBL 14910 
CBL 14920 
CBL 14930 
CBL 14940 
CBL 14950 
CBL 14960 
CBL 14970 
CBL 14980 
CBL 14990 
CBL 15000 
CBL 15010 
CBL 15020 
CBL 15030 
CBL 15040 
CBL 15050 
CBL 15060 
CBL 15070 
CBL 15080 
CBL 15090 
CBL 15100 
CBL 151 1 0 
CBL 15120 
CBL 15130 
CBL 15140 
CBL 15150 
CBL 15160 
CBL 15170 
CBL 15180 
CBL 15190 
CBL 15200 
CBL 15210 
CBL 15220 
CBL 15230 
CBL 15240 
CBL 15250 
CBL 15260 
CBL 15270 
CBL 1 5280 
CBL 15290 
CBL 15300 
CBL 15310 
CBL 15320 
CBL 15330 
CBL 15340 
CBL 15350 
CBL 15360 
SNUZ }. CBL 15370 


(AERO(108)» SNLX) , <AE RO (1 09 ) • S FL V ) « < AERG( 1 10 ) . SNLZ ), CBL 15380 
I AERO ( 1 11), SNLST) , (AE RO ( 1 1 2 ) , S F t HL ) , (AEFC ( 1 13 ) ,S NUBL ), CBL 15390 
( AERO (114).SNLST),(AERC(llS).SFLhL).<AERC<116).SNLBL),CBL15400 



F IL E CA BL F 


FORTRAN PI 


G F t ^ A K 


DATA 


S V S T E M S 


( AERO( 1 17) • TUSNO) « <AE RQ < I 1 6 ) « 1 LS NC ) i<AERC< I 19 ) 
(AERO (120) tAKSNL) •(AER0<49) • VC) g {AERC(5i )f 
(AERO (63) «THE TA ) t (AERO (121 I «ACSMJ) g|AERC(122)« 


f AKSNU )t CBL 15410 
RHOlf CBL 15420 


ACSNL ) 


(SM 3) • 
(SM 61 • 
(S^ ( 9) # 
<S^ (12) • 
ISN (15) , 


GZl ) t 
GZ2)« 
GZ3 )• 
GZ4 )» 
ALU) t 


(SM21) •ThCZDt 
(S^ (24) tTHGZ2)t 
(5h<27) «THCZ3)« 
<SM30) •THGZ4 ) 


EQUIVALENCE ( SN( !)• GX1).(SN( 2)* GV1)«(SM 3)* GZl) 

1 ( SN( 4)« GX2),(SNC 5)« GV2)«(SM 6 )* GZ2) 

2 (SN( 7)t G>3)«(5K( 6)« GY3)«(S^( 9) • GZ3 ) 

3 (SN(IO)* GX4) «(SM(I 1 ) • G Y4 ) « ( S ^ ( 1 2 ) • GZ4 ) 

4 (SNC13), THU) » (EN (14) f TH L I « ( 5 N ( 1 5 ) « ALU) 

5 ( SN( I 6 ) , ALL) , 

6 ( SN( 19) •THGXl ) •(SM20) • THG Y 1 ) •(SMZl) gTHCZl) 

7 ( SN( 22) «THGX2) « (SN(23) tTHG Y2) « (S^ (24) 9 THGZ 2 ) 

8 ( SN( 25) *THGX3) t(SN(26) t 7HG Y3 ) *(5h<27) »THGZ3I 

9 ( SN( 28) tTHCXA) •(SN(29) • THG Y4 ) «<Sh(30) .THCZA ) 
DIMENSION FTOP ( 3t 3) •FBOT( 3 *3) 

Cn T( A ) = I ./TANl A ) 

IW =6 

00 1 CO I 1= U 3 

DO ICO 1 J = It 3 
SN U( I, J ) = 0 
lOOi SNUD( I, J ) = 0 

DO 5 102 1= 1» 1 0 

DO 5 10 2 J = 1 1 1 C 
5102 DUM( N J ) = 0 

IF( KOOE( 10 ) .NF • 1 ) GO TO ICCO 
TERMS FOR UNSNLBBEO SNUBBER EFFECTS (LCNG) 

DO 1004 1= 1.7 

DO 1CC4J = 1.7 
r 4 OUM( I. J ) = 0 
^ CALL DRCUSN( THETA ) 

DUM(l.3)= - 2.4 TLSN04G21 
DUM(l.4)= - 2*4 TLSNO* SIN ( THGXl ) 

DJM( 1, e )= 2**GX 1 

DUM( 2, 3)= 2*4 TUSN04G XI 

DUM(2.5)= - 2.4 TL5N04SIN< THGZl ) 

DlJM( 2. 6 )= 2 .4GZ 1 

OUM{ 3. 3 )= (-SNLZ4DUM( 1.3) 4£NLX4DUM(2 .3) )/12* 

DUM( 3. 4 ) = - SN UZ4 0UM (1 .4 ) /12« 

DUM( 3. 5 )= SNLX4DLMI2 .5)/12. 

OJM( 3. F )= (- SNLZ4 0UM( 1 . 6 ) 4£NLX40UM(2 . 6 ) )/12. 

DUM( 4 . 1 ) = ( SIN( IHGXl ) /ALL) 4 12. 

DUM( 4. 2 )= (-GZ 14C0T(THGX1 ) /ALL)412« 

DUM< 4 . 3 1= “ SNLZ4SIN(THr X 1 ) /A L L- S NU X4G 2 I 4 C C T (THGXll/ALU 
DUM( 4. 4)= - 1 • 

DUM( 5, 1)= (-GX 14C0T(THG21 )/ALL)412. 

OJM( 5. 2 )= ( S1N( THGZl )/ALU)4l2. 

DJM(5. 3)= SNLZ4GX14C0T( THGZl > /ALU 4 S F L > 4 S 1 M THGZ 1 ) / ALU 

DUMC Et 5 )= I . 


DUM( 4. 4)= - 1 • 

DUM( 5, l)= (-GX 14C0T( THGZl ) /A L L ) 4 1 
OJM( 5. 2 )= ( S1N( THGZl )/ALU)4l2. 

DJM( 5. 3)= SNLZ4GX14C0T( THGZl >/AL 
DUMC Et 5 )= I . 

CALL DRCSN( THETA) 

0 = , 5 4R hO 4V0 4V0 
AL U I =ALU ♦ 1 • 

CALL STINT(Q.ALUl.Otl.l.TLSNl.KG) 
IF(NG.NE.O) GO TO 5C00 
AL U2=ALU- I . 

CALL ST IN T (0, ALU2 ,0 .1 .1 .TLSN2.NG) 
IF(NG.EQ.O) GO TO 6C01 


CBL 15430 
CBL 15440 
CBL 15450 
CBL 15460 
CBL 15470 
CBL 15480 
CBL 15490 
CBL 15500 
CBL 15510 
CBL 15520 
CBL 15530 
CBL 15540 
CBL 15550 
CBL 15560 
CBL 15570 
CBL 15580 
CBL 15590 
CBL 15600 
CBL 15610 
CBL 15620 
CBL 15630 
CBL 15640 
CBL 15650 
CBL 15660 
CBL 15670 
CBL 15680 
CBL 15690 
CBL 15700 
CBL 15710 
CBL 15720 
CBL 15730 
CBL 15740 
CBL 15750 
CBL 15760 
CBL 15770 
CBL 15780 
CBL 15790 
CBL 15800 
CBL 15810 
CBL 15820 
CBL 15830 
CBL 15840 
CBL 15850 
CBL 15860 
CBL 15870 
CBL 15880 
CBL 15890 
CBL 15900 
CBL 15910 
CBL 15920 
CBL 15930 
CBL 15940 
CBL 15950 



FILF CABl. E 


FOP TRAN P 1 


G F C » A ^ 


DATA 


SYSTEM 


EOOO WR ITE( IW.EC02) NG ,A LL .A LO «Q 

F0PMAT( *ERROR IN TABLE 1- 2 ,NG = • , I 2 • 3 XE 1 C. 3 ) 

RETURN 

5001 continue 

AKTU = ( TUSNl-TLSN2)/2. 

ouM< e, e ) = - 1 , 

DUM{ 6. 7 )= AKTLA 12. 

OUM( 7, 1 )= -GX 1 
DUM( 7, 2 )= -GZ 1 

nUM( 7, 3 » = ( (- ENLX + ALUAG XI) *GZI- {- SNti 24^ AL C «G Z 1 ) 4 O 1 )/ 12 • 
DJM( 7, 7 >= - 1 . 

CALL M ASH( 2t 7 > 

DO 1005 1= 1,3 

DO 1005 J=l,3 
1005 FT OP( I , J ) = DLM( 1 , J ) 

CALL DRCUSNI THETA ) 

DUM(1, 3)= - 2.4 TL SNOAGZJ 
OUMfl,A)= - 2 .♦ TL SNO* SIN ( THG X3) 

DUM( I, 6 ) = 2 .4GX3 

DUM(2, 3)= 2.4TLSN04GX3 
DJM(2,5)= -2.4 TL SN04SIN < THGZ3 ) 

DUMf 2, e )= 2.4GZ3 

DUM( 3, 31= ( SNLZ4D(JM( 1 ,3) 4 SNL X4DUM (2 ,3 ) )/l2. 

D'JM(3, 4)= SNLZ4DUMI 1 ,4) /12. 

OUM(3, 5)= SNL X4DLM (2 ,5) /12. 

DUMf 3, C »= ( SNLZ4DLMI 1 ,6) 4-SNLX40UM (2 ,6)1/12. 

DUM(4, 1)= ( SIN( THG X3) /ALL)4 I 2. 

DUMf 4, 2 )= f-GZ34C0T( THGX3) /ALL) 41 2. 

^ DUMf 4,3)= SNLZ4SIN(THGXJ)/ALL - S^LX4G 23 4CCT f THGX3 l/ALL 
DUMf 4,4)= - 1 . 

DUMf 5. 1)= f-GX34COTf THGZ3) /ALL1412. 

DUMf 5,2)= f SIN f TMGZ3 ) /ALL)4 1 2. 

DUMf 5.3)= -SNLZ4GX34CO Tf THGZ3) /ALL 4 £ ^ L > 4 £ I MTHG23 ) / ALL 

DU M ( 5 , 5 ) = - 1 , 

CALL DRCSNf THETA) 

ALL 1=ALL 4 1 . 

CALL ST INT to , ALL 1 , 0 ,1 , 1 ,TLSNt ,NG) 

IFINC-NF.O) GO TO 5003 
ALL 2=ALL - 1 . 

CALL STINTfO,ALL2,0,l,l,TLSN2.NG) 

IFfNG.EQ.O) GO TO 5004 

5003 WRITEf IW,5C02) NG,ALL,ALL,Q 
RETURN 

5004 CONT INUE 

A< TL =( TL £N 1-TL SN 2 ) / 2. 

DUMf e, f ) = -I . 

DUMf e, 7 ) = AK TL4 I 2. 

DUMf 7, I )= -GX 3 
DUMf 7, 2 )= -GZ 3 

DJM f 7, 3 ) = f f- SNLX4ALL4GX3) 4G Z 3- f SNL Z4A L L 4G 2 3 1 4G X3 >/ 1 2 • 

DUMf 7, 7 )= - 1 . 

CALL MASH! 3,7) 

DO 1 C 0 e 1=1,3 
DO lOOe J = I, 3 
1008 FBOTf I, J ) = DUM f I , J ) 


CBL 15960 
CBL 15970 
CBL 15980 
CBL 15990 
CBL 16000 
CBL 160 1 0 
CBL 16020 
CBL 16030 
CBL 16040 
CBL 16050 
CBL 16060 
CBL 16070 
CBL 16080 
CBL 16090 
CBL 16100 
CBL 16110 
CBL 16120 
CBL 16130 
CBL 16140 
CBL 16150 
CBL 16160 
CBL 16170 
CBL 16180 
CBL 16190 
CBL 16200 
CBL 16210 
CBL 16220 
CBL 16230 
CBL 16240 
CBL 16250 
CBL 16260 
CBL 16270 
CBL 16280 
CBL 16290 
CBL 16300 
CBL 16310 
CBL 16320 
CBL 16330 
CBL 16340 
CBL 16350 
CBL 16360 
CBL 16370 
CBL 16380 
CBL 16390 
CBL 16400 
CBL 16410 
CBL 16420 
CBL 16430 
CBL 16440 
CBL 16450 
CBL 16460 
CBL 16470 
CBL 16480 
CBL 16490 
CBL 16500 


file cable 


FORTRAN PI 


G L h h h 


DATA 


SYSTEM 


DO 1 C 0 9 I = 1 • 3 
DO 1009 J = 1. 3 
SNUD( T » J )= C 

1009 SNU(I,JI= FTOP( 1 * J)>FBOT(I ,J) 

RETURN 

1000 IFC KOPE( 10 }.EQ • C) GO TO 1 C C2 
C TERMS FOR SNUBBED SNUBBER EFFEC 7 S ( LONG I 
CALL DRCSN( THETA) 

DO 1 C 0 e I = 1 • 7 
rO 1 006 J = 1, 7 
1 006 OUMC U J ) = 0 

OJMClf3)= -2 7L SNO^GZl 
OUM(ltA)= TUSNO^ SIN C THGXl ) 

DUM{ 1.6)= 2«^GXl 

DUM{ 2f 3 >= TLSNO^G XI 

DJM(2, 5)= -2.* TUSNO^SIN (THGZl ) 

DUM( 2» 6 ) = 2*^GZ 1 

OUM< 3, 3 )= C-SNLZ^DUM( I ,3) ♦SNL>^DUM|2 ,3) >/l2, 

OJM(3. 4)= -SNLZ^DUMI 1 *4) /12. 

DUM(3#5)= SNLX4DLM(2.5)/12. 

OUM(3f6)= («SNtZ*DUM(lte)^SNtX4DUM(2f6))/l2. 

OUM( 4. I )= { SIN( TNG XI ) /ALL)4l 2 . 

DUM( 4, 2 )- {~GZ 14C0TC THG XI ) /ALU >412 • 

DUM( 4, 3 )= - SNUZ4 SIN ( THG XI ) /A L L- SNU X4G 2 I 4CCl|TFGXl)/ALU 
OUM( 4t 4 )= - I • 

DJM(E. 1)= ( -GX 14C0 T ( THGZl > /AL t >41 2# 
nUM(^,2>= (SIN( THG 21 ) /ALL)4 12* 

OUMCe*3)= SNLZ4GX14C0 T< THGZl ) /ALU 4 S F t > 4 S I f ( T HG Z I ) / ALU 
DUM( 5* 5 - 1 • 

nu M ( 6 , 6 I = - 1 • 

OJM< 6. 7 ) = AK SNL4 12. 

OUM< 7, 1 ) = -GX 1 
OUM( 7, 2 )= -G7, I 

OJM( 7, 3 >= { {- SNUX4ALU4GX1 )4GZl-(-SNUZ4ALC<GZl)4GXl)/l2« 

DUM( 7» 7 )= - !• 

DO 10 1=1*3 

DO I 0 J = 1 * 3 

10 SNIUD{ I*J ) = DUM( I#6)4ADSNL40LM(7 *J)412, 

CALL M ASH( 3*7) 
nn 100 7 1 = 1*3 

no 1 c 0 7 J = 1 * 3 
100 7 FT OP I I,J )=DtM( I*J) 

OOM(U3)= - 2.4 TLSN04G Z3 

OJM( l*4)= -2.4 TLSN04SINITHGX3) 

DUM( 1*6>= 2.4GX3 

OJM ( 2* 3 )= 2»4 TL SN0 4G X3 

- 2 .4 TL SN04 SIN < THGZ3) 
nUM( 2* 6 )= 2.4GZ3 

OJM( 3* 3 >= ( SNLZ4 0UMI 1.3) 4SNL>40U^^I2 «3 I ) / 1 2 • 

DUM( 3* 4 >= SNL Z4DUM ( 1 *4 > / I 2. 

OiJM( 3* S )= ENL X4DUM(2f5)/|2# 

DJM( 3. 6 )= ( SNLZ4 0UMC 1*6) 4SNLX4DUM(2 «6) )/12« 

DUM(4, 1>= ( SIN( THGX3) /ALL)412# 

DUM( 4* 2 ) = (-GZ 34C0T( THGX3 ) /ALL) 412 « 

DUM(4, 3)= SNL Z4 SIN ( THG XJ ) /ALL - SNL X4G 23 4 C C T i THGX3 ) / ALL 


CBL 16510 
C0L 16520 
CBL 16530 
CBL 16540 
CBL 16550 
CBL 16560 
CBL 16570 
CBL 16580 
CBL 16590 
CBL 16600 
CBL 16610 
CBL 16620 
CBL 16630 
CBL 16640 
CBL 16650 
CBL 16660 
CBL 16670 
CBL 16680 
CBL 16690 
CBL 16700 
CBL 16710 
CBL 16720 
CBL 16730 
CBL 16740 
CBL 16750 
CBL 16760 
CBL 16770 
CBL 16780 
CBL 16790 
CBL 16800 
CBL 16810 
CBL 16820 
CBL 16830 
CBL 16640 
CBL 16850 
CBL 16860 
CBL 16870 
CBL 16080 
CBL 16890 
CBL 16900 
CBL 16910 
CBL 16920 
CBL 16930 
CBL 16940 
CBL 16950 
CBL 16960 
CBL 16970 
CBL 16960 
CBL 16990 
CBL 17000 
CBL 17010 
CBL 17020 
CBL 17030 
CBL 17040 
CBL 17050 


FILE CABLE 


FORTRAN PI 


G F L A A N 


DATA 


S Y S T E M S 


DUM( 4, 4 ) = 

• 1 « 

CBL 1 7060 

OUM( 5, 1 ) = 

(-GX3«COT( THGZ3) /A L L) ♦ 1 2 • 

CBL 17070 

DJM( £, 2 > = 

( SINC THG23) /ALL)^ 1 2. 

CBL 17000 

PUM( 5, 3 ) = 

-SNLZ*GX3*COT( THG73) /ALL 4- S ^ L X « S I ^ t THGZ3 )/ ALL 

CBL 17090 

DUM( 5, 5 ) = 

- 1 • 

CBL 17100 

DUM( e, e ) = 

- 1 • 

CBL 171 10 

OUM( 6, 7 ) = 

AK SNL^ 12# 

CBL 17120 

DUM( 7, 1 ) = 

•GXZ 

CBL 17130 

OUM( 7, 2 1 = 

-G7 3 

CBL 17140 

OUM ( 7, 3 ) = 

( SNL X^ALL*GX3> AG Z3 - C S N L A L L « C 23 ) 4GX3i/l2<* 

CBL 17160 

DUM( 7, 7 ) = 

- 1 • 

CBL 1 7160 

DO 2 0 1=1, 

C 

CBL 17170 

DO 20 J= 1, 

3 

CBL 17100 

SNUD< I , J ) = 

SNUD( I ,3 M-DUM (I .6) ♦ AD S NL40 U K ( 7 ..) <12. 

CBL 17190 

CALL MASH( 

3, 7 ) 

CBL 17200 

DO 1 C 1 C I = 

1»3 

CBL 17210 

DO 1010 3 = 

1, 3 

CBL 17220 

F0OT( I, J ) = 

CLM( 1,3 ) 

CBL 17230 

DO 1011 I = 

1,3 

CBL 17240 

on 10113= 

1,3 

CBL 17250 

SNU( I, 3 ) = 

FTQP ( I .3H-FBOT ( I ,3) 

CBL 17260 


20 


1010 


1011 

RETURN C8L 17270 

1002 DO 10C3 1=1,3 CBL 17280 

DO 1003 J=l,3 C0L 17290 

SN'JD(I,J) = C CBL 17300 

1003 SNUCI,J) = 0 C0L1731O 

RETURN CBL17320 

EN C CBL 1733 0 

SUBROUTINE DRCENI THETA) CBL 17340 

COMMON /DAT/AEROI I 5 0 ) , AER OP ( 5 C > .KODE 120). LL CBL17350 

COMMON /SNUDB/SNU( 3,3) , SN( 30) • TH U SN • TH L S h , £ hUC (3 .3 ) CBL 17360 

EOU IVALENCE (AERO ( 105) , £N (. X) , < AERO ( 1 06 I « £ M. >) « 4AERC ( 107 ) , SNUZ), CBL 17370 

1 (AFRO(108), SNLX) , (AEROd 09) • £ ^L Y ) • ( AE RC( 1 10 1 , SNLZ ), CBL 17380 

2 (AERO I 1 11 ) . £N CST) , (AERO (1 12 ) ,£^LtiL) •(AERC(113),SNUBL),CBL 17390 

3 ( AEPO (11A),SNL£T),(AER0(115),£^LIIL)•<AEBC(II6),SNLBL). CBL 17400 

A ( AERO( 117), TUSNO) *<AERC(118).1L£^C)•<AERC<119)• AKSNU ), CBL 17410 

5 I AERO < 1 20) ,AK £NL) , CBL 17420 

6 ( AERO ( 7E) ,WLCR1 , (AERC(77) ,£ 1 ACF) , ( AERC (78) . BLCR ) CBL 17430 


EOU IVAL ENCE 

( SN( 

1 ) • 

G XI ) , (SN( 2) 

• 

GYl ) .ISM 3) • 

GZl >, 

CBL 17440 

1 

( £N( 

• 

G X2 > . { £N ( 5) 

• 

GY2) « (£N ( 6) • 

GZ2> , 

CBL 17450 

2 

( SN( 

7) , 

GX3) ,(SN( 81 

t 

GY3) , (£N ( 9) . 

GZ3 > , 

CBL 17460 

3 

( SN( 

1 C) • 

G X4 ) , ( SN (11 ) 

• 

GY4) ,(SM12), 

GZ4 ) , 

CBL 17470 

4 

( SN( 

13) , 

THU) , ( SN (14) 

f 

THL ) « (SN (IS) • 

ALU ) , 

CBL 17480 

5 

( SN( 

16 ) • 

ALL ) , 




CBL 17490 


6 

7 

8 
q 

CAL CJLAT ION 
X B 1 = 

ZB 1 = 

X 0 2 = 

7B 2 = 

XB 3 = 

ZB 3 = 


OF SNUBBER 


{ £N( 19) , THG >1 ) , ( SN (20) • THG V 1 • • (£M21 ) ,THCZ1 ) • 
( SN( 2 2) ,THG X2 ) , ( £M23 ) . THG Y2) • (SM24) ,THGZ2I , 
C SN( 25) , THG X3) , I £^ (26) .THG Y3) • (SM27) ,TH6Z3). 
( SN( 2P) ,THG X4) , (SN (29) ,THGY4) , (SM30) ,THGZ4 ) 
CAOUt OIRECTICN CC£INE£ 

( STACR- £NLST)*COS(THETA)-<l»LCR-SNL*L)«£Ih (THETA) 

( WLCR-SNU\»L ) *COS( THE TA > ♦ ( £ TAC R- SNL £ T ) A£I N 4TMETA) 

XB 1 
ZB 1 

( STACR- SNL ST )*C0 S( THETA ) - (ULCR-SNt HL ) <£I N (THETA) 

( WLCR- SNL liL )*COS( THE TA ) ♦ ( £ TAC R- SNL £ T M £ I K (THET A) 


CBL 17500 
CBL 17510 
CBL 17520 
CBL 17530 
CBL 1 7540 
CBL 17550 
CBL 17560 
CBL 17570 
CBL 17580 
CBL 17590 
CBL 17600 



FILE CABLE 


FOWTPAN PI 


G f i. h h A h 


DATA 


SYSTEMS 


XB4= X03 
7 R4=Z0 J 
DX XB l^SNUX 
DY 1= -SNUBL^SNLY 
07 1= ZB l^SNUZ 
OX 2= OX 1 
DY2- SNUBL-SNUY 
OZ 2= OZ 1 
OX 3- XB3tSNLX 
OY 3= SNLBL-SNLY 
OZ 3= ZB3-SNLZ 
DX 4= 0X3 

OY 4= -SNLBL+SNLY 
OZ 4= OZ 3 

ALUSQ= OX 2 ♦ 


OY 


OZ 1 ♦♦a 


ALU = SQPT(ALUSQ) 

ALLSO = DX3A42 > DY3AA2 ^ DZ34*2 
ALL = SOFT (ALLSO) 

GX I =: DX I /ALU 
GY 1 = OY 1/ALU 

GZ 1 - DZ I /ALU 

GX 2 = DX 2 /ALU 
GY 2 = DY2/ALU 
GZ 2 = DZ2/ALU 
GX 3 = 0X3 /ALL 
GY 3 = DY3/ALL 
GZ 3 = 07 3/ ALL 
GX 4 = OX 4/ALL 
GY 4 = 0Y4/ALL 
GZ 4 = DZ4/ALL 
00 I I* !<;• 30 
J= I- le 

{ I » = ARCn S( SN ( J ) ) 

WETURN 
FN D 

SUBROUT INE ORCLSN( THETA ) 

COMMON /O A T /AERO ( 150)*AEROP<50) •KODE C2 0) «ti 
C0MM0N/SNUPB/SNt(J<3) tSN(30)•lHtS^•THL£^^S^LCC3»3> 

EDU IVALENCE( AERO( 10 5) t SNtX) • <AEROil06l « S ^ L Y ) . ( AE RO C I 07 ) • SNJZ )« 


CBL 17610 
CBL 17620 
CBL 17630 
CBL 17640 
CBL 17650 
CBL 17660 
CBL 17670 
CBL 17680 
CBL 17690 
CBL 17700 
CBL 17710 
CBL 17720 
17730 
CBL 17740 
CBL 17750 
CBL 17760 
CBL 17770 
CBL 17780 
CBL 17790 
CBL 17800 
CBL 17810 
CBL 17820 
CBL 17830 
CBL 17040 
CBL 17850 
CBL 17860 
CBL 17870 
CBL 17880 
CBL 17890 
CBL 17900 
CBL 17910 
CBL 17920 
CBL 17930 
CBL 17940 
CBL 17950 
CBL 17960 
CBL 17970 
CBL 17980 
CBL 17990 


(AERO(108), SNLX) , IAER0U09) t S h L Y ) , ( AEPC ( 1 10 ) * SNLZ ), CBL 18000 
(AERO ( 1 1 1 ) . SNLST) • CAERG (112)«SM.Ht) .IAERCill3l#SNUBLK CBL 18010 
( AERO( ll 4 )fSNL£T) « (AERCCl l 5 )^£MAt) •(AERCC1I6I»SNLBL)» CBL 18020 
I AERO ( 1 I 7) t TUSNO) vCAEROtlld) «ltShC) •(AEPC(119l9 AKSNU >9 CBL 18030 
( AERO i 120) «AK £NL) 9 CBL 1804 0 


6 

( AF.RO( 76) 

,WLC R) 

• CAER0<77) 

• S1ACF) .(AEi:C(7a) .BLCR) 

CBL 18050 

FDU (VALENCE 

( SN ( 

1 ) t 

G XI ) 


( SN ( 2) , 

GYl) «<SN( 3) , 

CZl ) , 

CBL 18060 

1 

( SN( 

4) , 

G X2 ) 


(£N( 5) • 

GY2)«<£Nf 6)* 

GZ2>. 

CBL 10070 

2 

1 SN( 

7) • 

G X3 ) 


(SN( 8) • 

GY3) *(SN( 9) • 

GZ3 ) • 

CBL 18080 

3 

1 SN ( 1 C) • 

G X4 ) 


(SNfll ) » 

G Y4 ) , (SN (12) • 

GZ4) , 

CBL 18090 

4 

( SN( 1 3) . 

THU) 


( SN (14) • 

7HL ) , (SN (IS) • 

ALU } » 

CBL 18100 

5 

< SN( 16) . 

ALL ) 

9 




CBL 181 10 


( SN( 1<5) 9 THGXI ) 
( SN( 22) #THG X2) 
( SN{ 25) #THG XJ ) 
( SN( 2 81 9 THG X4 I 


( SN (20) 9 THG VI ) 9 (SN (2 1 ) »THGZ1 ) 9 
(SN (23 ) 9 THGY2 > 9 (SN (24 ) tTHG22 ) # 
(SN(26) 9THGV3) 9 ( S N ( 27 ) 9 THGZ 3 I 9 
(SN(29I 9 THGV 4 ) 9 (SN (301 ,r^CZ4l 


CBL 18120 
CBL 18130 
CBL 18140 
CBL 18150 



F IL E CA BL 6 


FOR TP AN PI 


G f Kj ^ h A h 


DATA 


SYSTEMS 


C CALCULATION FOR EFFECTIVE D IREC TI CN CCSINES FCF L^S^UEeEC CASE 
AYL = SNL0L-< BLCR^SNL Y) 

_ AZL =-SNLWL-( ^»tCP^SNLZ^SNLX^SIN (THETA) ) 

AYU 2 : SNURL-( RLCR^SNUY) 

AZ U = SNLVi»L-( ^ULCR-^SNUZ- £NCX4i El h C THE TAI ) 

THU= ATAN( AZU/AYU) 

THL= A TAN( AZL/AYL ) 

AL U = AYU/( S IN( THLSN)*COS( THL) ) 

GX 15= --COS! THUEN ) 

GY 1S= -AYU /ALU 
GZ 1S= -AZU/ALU 

GX I = GX IS^CO SC THETA )-G 21 «♦ SIN (THE TAI 
GY I = GY IS 

GZ 1 = GZ lS*COS( THETA )^GX1 EASI N (THETA) 

GX 2 = GX 1 

GY 2 =- GY 1 

GZ 2 = GZ I 

ALL=AYL/( S IN( THL SN ) AC O S ( TH L ) ) 

GX 3S= -CO S( THL SN ) 

GY 2S= AYL /ALL 
GZ 35= AZL/ALL 

GX 3 = GX 3S*CO S( THE TA )-G Z3 S^SI N (THE TAI 
GY 3 = GY 3 S 

GZ 3 = GZ3S*COS( THETA )FGX3S*SI N (THETA) 

GX 4 = GX 3 
GY 4 =- GY 3 

GZ 4 = GZ 3 
on 1 1=15*30 

^ J = I- IP 

1 SN ( I ) = APCO S( SN( J ) ) 

RETURN 
EN n 

SUBROUT INE R I TE 

COMMON /DA T /AERO( lfO)*A£ROP(5C) •KODE (2 0) «L L 
=6 

IF( KODE( e ) •GT • 1 I GO TO I 
WR ITE< IW* ICO) 

100 F3 RMAT( 1 EX * •FRONT CABLE VEP T I C AL »RE AR CAEIE HCFIZONTAL*) 

GO TO 4 

1 I^( KODE( E ) .GT .2 ) GO TO 2 
WR ITE( IW, 2C0 ) 

200 FORM AT( IFXt «FROMT CABLE H OR I 2GN T AL t RE A F C/ELE VERTICAL* I 

GO TO 4 

2 IF( KnOfc( e ) .GT .3 ) GO TO 3 
WR ITE( iWt 3 C 0 ) 

300 FOF^MAT( lEX , *00 TH CABLES VERTICAL*) 

GO TO 4 

3 WR ITE( IW* 4CC ) 

400 FORM AT ( 1 EX , *00 TH CABLES HCRIZCNTAL*) 

4 CON T IN UF 

IF ( KOOE( 10 ) -EQ .0 ) GO TO 5 
I F( KnOF< 10 ) *EQ . 1 ) oO TO 6 
WR ITE( IW* SCO ) 

; j FORMAT! ISX* •SNUBBER S SNUBBED*) 

GO TO 7 


CBL 16160 
C8L 10170 
CBL 18 180 
CBL 10190 
CBL 10200 
CBL 18210 
CBL 10220 
CBL 18230 
CBL 18240 
CBL 10250 
CBL 18260 
CBL 18270 
CBL 18280 
CBL 10290 
CBL 18300 
CBL 18310 
CBL 18320 
CBL 18330 
CBL 18340 
CBL 18350 
CBL 18360 
CBL 18370 
CBL 18380 
CBL 18390 
CBL 18400 
CBL 18410 
CBL 10420 
CBL 18430 
CBL 18440 
CBL 18450 
CBL 18460 
CBL 18470 
CBL 18400 
CBL 18490 
CBL 18500 
CBL 185 1 0 
CBL 10520 
CBL 18530 
CBL 18540 
CBL 18550 
CBL X8560 
CBL 18570 
CBL 18680 
CBL 18690 
CBL 10600 
CBL 10610 
CBL 18620 
CBL 18630 
CBL 18640 
CBL 18650 
CBL 18660 
CBL 18670 
CBL 18680 
CBL 16690 
CBL 18700 



FILE CABLE 


FORTRAN PI 


G f \J P h A S 


DATA 


SYSTEMS 


5 ITE( lilt €CC } 

0 FIRM AT( lEX • 'NO SNLB0FRS") 

GO TO 7 

6 HR ITE( I W, 7C C ) 

700 FORMAT! lEX, •SNLBBER S ONSNtBBEO«> 

7 CONTINUE 

IF( KODE( 1 1) .EQ #0) GO TO 8 
HR ITE( IW* ecc ) 

800 FORM AT( 15X, •L IFT/ANTI-LIF T CABLE 

GO TO R 

8 HR ITE( IHt RCO ) 

900 FORM AT( lEX# ‘NO L I F T /A N T I- L I F T CABLE*) 

9 CONT INUE 
R ETURN 
EN D 

SU3ROUT INE STINT(Al,A2,A3,MINTBLtMAXTBL*FCTtNG) 
EQUIVALENCE (X( 1 ) « N UMP T S ( 1 ) I 
COMMON NUMPTSl 1) 

DIM ENS ION X( 1 ) 

IZ =NUMPT S( 1 > /3 

70 I^{MINTBL-MAXTBL)71,71,11C 

71 03 73 I I -M INTBL#MAXTBL 

NJ -NUMPTS( I I I 

IF{ A3-X(NJ ) )72f 7A,73 

72 IF( I I-M IN TBL ) ilC«112«75 

73 CONT INUE 
GO TO 112 

5 I K = I 
^ IL = 2 
NM =N J 

101 DO 97 lF=IKtIL 

NJ =NUMP TSl I I )4 I 
N I = IZ + I I 
10 =NUMPT S( NI ) 

IP =I0 4NJ 
DO 77 IQ= I# 10 
NN = NJ 4 IQ 

IF ( Ai-X(NN ) )7Ef7e, 77 

76 IF( 10- 1 ) 1 10^ I 12 • 79 

77 CONTINUE 
GO TO 112 

78 IG =- 1 
GO TO PC 

79 IG =41 
00 N I =N I 4 IZ 

IB = NUMP T S( N I ) 

DO 82 IA= 1, IB 
NS= IP4 lA 

IF (A2-X(NS))eue3.82 
8 1 IF( lA- 1 > 1 1C« 1 12, E4 

92 CONT INUE 
GO TO 112 
3 IH =- 1 
GO TO 6 5 
IH =41 


CBL 18710 
C0L 18720 
CBL 18730 
CBL 18740 
CBL 18750 
CBL 18760 
CBL 18770 
CBL 18780 
CBL 18790 
CBL 10800 
CBL 18810 
CBL 18820 
CBL 18830 
CBL 18040 
CBL 10850 
CBL 18660 
CBL 18870 
CBL 18080 
CBL 18890 
CBL 18900 
CBL 18910 
CBL 18920 
CBL 10930 
CBL 18940 
CBL 18950 
CBL 18960 
CBL 10970 
CBL 18900 
CBL 18990 
CBL 19000 
CBL 19010 
CBL 19020 
CBL 19030 
CBL 19040 
CBL 19050 
CBL 19060 
CBL 19070 
CBL 19080 
CBL 19090 
CBL 19100 
CBL 19110 
CBL 19120 
CBL 19130 
CBL 19 140 
CBL 19150 
CBL 19 160 
CBL 19170 
CBL 19 180 
CBL 19190 
CBL 19200 
CBL 19210 
CBL 19220 
CBL 19230 
CBL 19240 
CBL 19250 



file CAFH.F FORTRAN PI 


GFUI^I^AK DATA SYSTEMS 


GO TO 

99 

NG =4 


GO TO 

99 

EN C 



SUBROUT INE TAB IN ( NLMTBL «N 2 «NG ) 
common NLMPTSI I I 
COMMON /TABOUT/ NIMTBLflSOQ 
01 MENS ION XLMPTSI 1 ) 

IN T EGER ♦ 2 LABEL! 2 7 ) 

EOU IV ALENCe ( XLMPTS( I ) • NU MP T S C I ) ) • 
DIMENS ION DUMMY( 1C) 

M CR = 0 

10 1/ = I AB S( NZ ) 

NUN I T = e 

IF I NZ #L T .C ) N LN I T =E 
N I MT0L = NLMTBL 
NG = 0 

NJMPTS( I )= IZ> IZ^l ^ 

lOP RE ADI NUN IT , E7 ) K, LlNf L2 N t LABEL# 
IF(MCR.EQ*CI GO TO 3 
4 WRITE(6#l) K.L INf L2N.LABEL •! £E0 
1 F0RMAT(3I5, 1 CX, 27A 2# I 46) 

57 FORMAT(exlA,2I2#2 7A2*I2> 

3 IF( ISEO > 56# eS 

IF( K ) SS, c<;, 

>9 M = 17, 4 NIMTBL 

NUMPTS( M ) = L IN 


C6L 19260 
C0L 19270 
CBL 19200 
C0L 19290 
CBL 19300 
CBL 19310 
CBL 19320 
CBL 19330 
CBL 19340 
CBL 19350 
CBL 19360 
CBL 19370 
CBL 19380 
CBL 19390 
CBL 19400 
CBL 19410 
X(NN-ll) CBL 19420 
CBL 19430 
CBL 19440 
CBL 19450 
CBL 19460 
CBL 19470 
CBL 19400 
CBL 19490 
CBL 19500 
CBL 19510 
CBL 19520 
CBL 19530 
CBL 19540 
CBL 19550 
CBL 19560 
CBL 19570 
CBL 19580 
CBL 19590 
CBL 19600 
CBL 1961 0 
CBL 19620 
CBL 19630 
CBL 19640 
CBL 19650 
CBL 19660 
CBL 19670 
CBL 19680 
CBL 19690 
CBL 19700 
CBL 19710 

1 SEC CBL 19720 

CBL 19730 
CBL 19740 
Ca. 19750 
CBL 19760 
CBL 19770 
CBL 19700 
CBL 19790 
CBL 19800 


85 NE= IP4 IB4IU4I04IA-I0 
NR =NE- 10 

IF(IG4lh) £6t6Ff91 
36 IF C X( NF )-<;999€*5E9)e7# 11 3fl 13 

87 FCT = X(NE) 

GO TO 9 5 

88 IF( IG ) 89f 1 10# 93 

89 IF<AMAX1<X(NE)*X(NR)>-99998.5E9>90#113.113 

90 FCT =X(NE)-(X(NS)-A2)4(XINE)-X(N«) )/(X(^£)•M^S-l) > 

GO TO 95 

9 1 IF! AM A Xl(X(NE)#X(NR),X(NE-l) # X (NP-1 I ) -999 9€*5E9 >92 fllSfllJ 

92 FCT = ((X(NS>-A2I4<€X<NN)-Al) 4Xl NR-1 )-«>CFF-l>-Al|4XlNR> 

l)-(X(NS-l)-A2)4C(X(NN)-Al>4X( ^E-l )-CXC^^-l>-Al|4X<^E>>> 

2/( (X(NS)-X(NS-1>)4CX(NN>-X(NN-1)>) 

GO TO 95 

93 IFIAMAXK X( NE I • X C NE- 1 ) ) - 9 9 99 0* 5E9 ) 94#113«113 

Q4 FCT = X(NE>-( X(NN)-A1)»< X | NE > - X(^E-l•)/{ X(NN)- 

95 GO TO (96*9e.99I.IF 

96 DJMSTG =FCT 

97 II =11-1 

98 FCT =OUMSTG-( X I NM )- A 3 ) ♦ I O UM S TG-FC T ) / ( X(^J)) 

99 RETURN 
74 IK =3 

IL =3 
GO TO 10 I 
110 NG =2 

GO TO 9 9 
2 N G =3 


(DLX^ Ml) 



F IL E CA BC E 


FORTRAN PI 


G f: t Ik » 4 ^ 


DATA 


SYSTEMS 


M = M 4 IZ 
NJ MP TS( M ) = L 2N 

IF { NUMTBL-N IMTBL)17,70,17 
17 NJMPTSI N IM T8L ) = MUMMY 

70 N1 = IL IN- I ) / S ♦ I 

on 6 6 IE = I,N1 
L3=(IS-1)*?4-1 
I F ( IS-N 11 60, 61, 60 

60 L4=L3*€ 

GO TO 6 2 

61 L 4 = L IN 

62 L5 = NUMPTSINIMTBL) + 1 

L6=LE*L2 

L7 =L£ *L4 

J J =0 

L.M = L E -f L IN 
LN = LM ♦ L2N 

63 RE ACI NUN I T« 641 ( DUMM V ( K ) • K = 1 « 1 C) * I £E C 

64 FORMAT (10E7.0.I2) 

IF(MCR.EO-C) GO TO S 

6 WR ITE( 6, 2 IDUMM Y, 1 SEQ 
2 FORMAT! lOE 12.4,151 
5 XJMPTS(L5)= DUMMY(l) 

K = 2 

DO 65 J = L6.L 7 
XUMPTS(J) = DUMMY(K) 

65 K = K 4 1 

ISOQ=( IS- 1 )♦( L 2N4 1 ) 4J J4 1 
^ IF( ISEO- lEOQ ) 69.e6.69 

66L6=LN4L2 
L7 = LN 4 L4 
L5 = LM 4 1 4 JJ 

IF (JJ-L2N) 67, 66, 69 

67 JJ = JJ 4 1 

LN = LN 4 L IN 
GO TO 6 3 

68 CONTINUE 

109 MUMMY = NUMPTECNIMTBL) 4 (L1K41) ♦ (L2F41I 

109 NIMTBL = NIMTBL 4 1 

GO TO 1C 2 

69 NG = 1 

99 RETURN 

EN C 

S UPROOT INF STINT1(A1.A2,A3.M1 MBL • MA X TP L • F C T . hG 1 
EOUIVALENCF ( X ( 1 ) , N UMP T E ( 1 1 ) 

COMMON /TAB 1 /N UMP TE( 1 ) 

O IMENS ION X( 1 ) 

IZ =NUMPTS( 11/2 

70 IF( M INTHL -MAXTBL ) 7 I ,71 , 1 1 C 

7 1 DO 7 2 I I=M INTBL .MAXTBL 
NJ =NUMPTS( 1114 1 
IF<A2-X(NJ 1172,74,73 
72 IF( I I-M INTBL ) IIC, 112,75 
I CONT INUE 
GO TO 112 


CBL 19810 
CBL 19820 
CBL 19830 
CBL 19840 
CBL 19850 
CBL 19860 
CBL 19870 
CBL 19880 
CBL 19890 
CBL 19900 
CBL 19910 
CBL 19920 
CBL 19930 
CBL 19940 
CBL 19950 
CBL 19960 
CBL 19970 
CBL 19980 
CBL 19990 
C8L20000 
CBL 20010 
CBL 20020 
CBL20030 
CBL20040 
CBL20050 
CBL 20060 
CBL20070 
CBL20080 
CBL 20090 
CBL 20 100 
CBL 201 10 
CBL20120 
CBL 20130 
CBL20140 
CBL 20150 
CBL 20 160 
CBL 20 170 
CBL 20 180 
CBL20190 
CBL 20200 
CBL 20210 
CBL 20220 
CBL 20230 
CBL 20240 
CBL 20250 
CBL 20260 
C6L20270 
CBL 20280 
CEL 20290 
CBL 20300 
CBL 20310 
CBL 20 320 
CBL 20330 
CBL 20340 
CBL 20350 



file C4 0LE 


FORTRAN PI 


G P L N A N 


DATA 


SYSTEMS 


75 

IK = 1 

CBL 20 360 


IL =2 

CBL 20370 


NM=NJ 

CBL 20380 

10 1 

on 97 IF = IK.IL 

CBL 20390 


NJ =NUMP T Sf I I 1 

CBL 20400 


N I = IZ + I I 

CBL 20410 


10 :=NUMPTS(NI 1 

CBL20420 


IP =I0 4NJ 

CBL20430 


00 7 7 IQ= 10 

CBL 20440 


NN = NJ +10 

CBL 20450 


IF ( A 1-X(NN ) ) 7C, 7€, 77 

CBL20460 

76 

IF{ IQ- 1 ) 1 ICf 1 12* 79 

CBL 20470 

77 

CONT IN UE 

CBL 20480 


GO TO 112 

CBL 20490 

78 

I G 1 

CBL20500 


GG TO P 0 

CBL2051 0 

79 

IG = + 1 

CBL 20520 

80 

N I=N 1+ IZ 

CBL 20530 


IB = NUMPTS(NI) 

CBL 20540 


DO 6 2 lA - 1 t IB 

CBL 20550 


NS= 104 lA 

CBL20560 


IF ( A2-XI NS ) 18 U E3* 62 

CBL 20570 

8 1 

IF( lA- 1 ) 1 10. 1 12* 64 

CBL 20580 

82 

CONT INUE 

CBL 20590 


GO TO 112 

CBL20600 

83 

IH =- 1 

CBL 20610 


GO TO 65 

CBL 20620 

A 

IH = + 1 

CBL 20630 

^5 

NE=IP4IB4IQ+IQ4IA-I0 

CBL20640 


NR =NE- lO 

CBL20650 


IF( IG+ Ih ) 66* 86* 9 1 

CBL 20660 

86 

IF IX(NE>- 99996* 5E 9)67. 113*113 

CBL20670 

87 

FC T = XC NE ) 

CBL 20680 


GG TO 9 5 

CBL 20690 

88 

IF( IG ) 89* 1 IC. 93 

CBL 20700 

89 

IP( AMAXUX(NE) , XI NR ))-9 99 9 8. 5E 9)90*113, 113 

CBL 20710 

90 

FCT =X (NE )-( XC NS )-A 2>*CX(NE)-XCNR) )/^X<^S)-X<^S-l)) 

CBL 20720 


GO TO 

IF(AMAX1(X(NF>,X(NR),X(NE-1) f>|NR-l))-9?5^€*5E9)92fll3»113 

92 FCT = ((X(NS>-A2)»(<XCNM-A1| « X( NR-1 ♦XCNR) 

1 >-( X(NS- 1 ( X(NN)-A1 ) ♦ X C NE- II - C X ( ^ ^ - 1 )-/lMX(KE>)) 

2/i (X(NS)-X(NS-1)I^(X(NN|-X( NN- 1 ) ) ) 

GO TO 95 

93 IF(AMAXU X(NE), X ( NE - I ) I - 9 99 9 8. 5E9 > 94«tl3,ll3 

94 FCT = X(NEl-( X(NN)-Al)4( X ( KE ) - X<^E-1)I/I X(^M- XCNN-1)) 

95 GO TO ( 9e« 99 I , IF 

96 OJMSTG =FCT 

97 II =11-1 

98 FCT =nUMSTG-( X ( NM ) - A 3 I ♦ ( DU M S TG-FC T I / < > C I - X<KJ)| 

99 return 
74 I< =3 

IL -3 
GO TO 101 
0 NG =2 

GO TO 9 9 


CBL 20 730 
CBL20740 
C&L 20750 
CBL 20760 
CBL 20770 
CBL 20780 
CBL 20790 
CBL 20800 
CBL 20810 
CBL20820 
CBL 20830 
CBL 20840 
CBL 20850 
CBL 20860 
CBL2O07O 
C6L20880 
CBL 20690 
CBL 20900 



ILE 

CAPLE FORTRAN PI 

DATA 

S Y S T E ^ 

112 

NG -2 


C8L 20910 


GO TO ? c 


CBL 20920 

3 

N G =4 


CBL 20930 


OT TO ? 9 


CBL 20940 


EN C 


CBL 20950 


SUPROUT INE TAB I N 1 ( N CM T0 L » N Z . NG ) 


CBL 20960 


COMMON /TAB l/NtMPTSi 1) 


C8L20970 


COMMON /TABOUl/ NIMTBL,ISOQ 


CBL20980 


dimension XCMPTS(l) 


CBL 20990 


INTEGER+2 LABEL(27) 


CBL21000 


FQU I VALENCE ( XLMPTSI I ) .NUMPTS U ) > . <0U»' »i >1 1 1 ) « V) 


CBL 210 10 


DIMENSION DUMMY! 10) 


CBL21020 


M CR= C 


CBL 21030 

1 0 

IZ = IABS( NZ 1 


CBL21040 


NON IT = 5 


CBL 21050 


IFINZ .LT.O ) NUNI T = e 


CBL21060 


NIMTBL = NLMTBL 


CBL21070 


NG = C 


CBL21060 


NJMP TSI 1 )= IZ+I Z+1 2 


CBL21090 

102 

RE AD(NUN IT, 57) K, LIN, L2 N , LABEL, ISEC 


CBL21 100 


IF ( MCR .EQ . C » GO TO 3 


CBL21 1 10 

4 

WRITEIE,!) K,L 1N,L2N,LABEL ,I SEC 


CBL 21 120 

1 

FORMAT! 215, 1 C X, 2 7A 2 , I 46 ) 


CBL21 130 

E7 

FORM ATI ex I 4, 21 2* 2 7A 2. I 2 ) 


CBL21 140 

3 

IF( ISEQ ) 6S, 56, eS 


CBL21 160 

58 

IF! K ) cc;, eg 


CBL 21 160 

59 

M = IZ 4 NIMTBL 


C8L21 170 


NJMPTS! M ) = L IN 


CBL21 180 

-- 

M = M 4 IZ 


CBL21 190 


NJMPTS! M ) = L 2N 


CBL21200 


IF( NUM TBL-N IMTBL ) 1 7 , 70, 1 7 


CBL 21210 

17 

NUMPTS! N IMTBL » = MUMMY 


CBL21220 

70 

N 1 = I L IN- 1 » / S 4 1 


CBL 21230 


DO 6 6 IE = 1 , N 1 


C0L2124O 


L3 = !1E-1) ♦ S 4 1 


CBL 2 1250 


IF ( IS-N I ) 60, 6 1, 60 


C0L2126O 

60 

L4 = L 2 4 f 


C0L2127O 


GO TO 6 2 


CBL21280 

61 

L4 = L IN 


CBL21290 

62 

L5 = NUMPTE(NIMTBL) 4 1 


C0L213OO 


L6 =L5 4L2 


CBL213iq 


L7 =L5 4L4 


C8L21320 


O 

II 


CBL21330 


LM = L 5 4 L IN 


CPL21340 


LN = LM 4 L2N 


CBL 21 350 

63 

RE ADI NUN 1 T . 64 ) I D UMM Y ( K ) , K = 1 , 1 C ) , ISEC 


CBL21360 

64 

FORMAT ! I0E7. 0, I 2) 


C0L2137O 


IFIMCR.EQ.O) GO TO 5 


C8L21380 

6 

WR ITE! 6, 2 )DUMM Y, I SEQ 


CBL 21390 

2 

FORM AT! 1 CE 12 . 4 , I 5 ) 


CBL21400 

5 

XUMPTS<L5)= OUMMYIl) 


CBL 21410 


K = 2 


CBL 21420 


DO 65 J = L6,L7 


CBL 21430 


XUMPTSIJ) = nUMMYIK) 


CBL21440 

65 

K = K 4 I 


CBL21450 



file cable 


FORTRAN PI 


G P U » A A 


DATA 


SYSTEMS 


ISOQ=( IS- 1 l♦(L 2N+ I )^JJ+ I 

IF( ISEQ-ISOO) 

L6 = LN ♦ L 3 

L7 = LN 4L4 

L5 = LM 4 14 JJ 

I F ( JJ--L 2N > E7, eet 65 

67 JJ = JJ 4 1 

LN = LN 4 L IN 

GO TO 6 3 

68 CONTINUE 

109 MUMMY = NUMPTS (NIMT8LI 4 (L1N41) ♦ (t2^4l) 

108 NIMTBL ^ NIMTBL 4 I 
GO TO 102 

69 NG - 1 

99 RETURN 

EN D 

SUBROUTINE FRICTIIDX) 

COMMON /DAT /AERO { 150) tAEROP (5 0 ,KOOE |2 0) 

COMMON /kOUGH/FR IC ( 3 t6) 

EOU I VALENCE C AERO < 9 6 ) • CO U ) • ( AE RO ( 1 04 > .CAP) 

DO 1 1=1,3 

00 1 J = 1 , 6 

1 FR IC( I, J ) = C . 

IF(CMP*EO#0#.ANO.COU#EQ.O.)RE1LRN 
IN D=KO CE( e ) 

IF( ICX «NE IGO TO 2 

C ^JNGITUCINAL PULLEY FRICTION COMPLTATICN 
GO TOC 10, 11,12, 13)« IND 
^ 0 CALL FR VTC I ) 

R ETURN 

1 1 CALL FRVT( 3 ) 

RETURN 

1 2 CALL FR VT ( 1 ) 

CALL FRVTC 3 ) 

13 RETURN 

C LATERAL DIRECTIONAL FRICTION COMPLTATICN 

2 GO TOC 20, 2 I, 22, 23 ), IND 

20 CALL FRH7 ( 3 ) 

RETURN 

21 CALL FRhli 1 ) 

22 RETURN 

23 CALL FRh/( 1 > 

CALL FRH2( 3 ) 

RE TURN 

FN C 

SURROUT INE FR VT( IC ) 

C COMPUTES ThF FR IC T . EFFECT OF THE VERT PULLEYS C^ THE LCNG* OYN. 
COMMON /DA T /AERO ( 150) tAERQPCSC) ,KOOE C2 0) 

COMMON /PLYCHA/RTD fXLGTH (5 ) «AOC (5,3) ,ARM 15 ,3) «TP ,TLFT ,TF 
COMMON /ROUGH/FR IC ( 3 ,6) 

EQU IVALENCF C a EROC 9 0 ,RVF ) ,( AERO (92) ,RVP) • (AEPC (96) ,CCU), 

1( A EROC 104 )• CMP ) 

D I MENS ION DTK 3),OT2(3) 

IF{ IC ,50 ,3 IGO TO I 
TENS=TF 


CBL 21460 
C0L2147O 
C0L2148O 
C8L21490 
CBL21 500 
C6L 21510 
CBL21520 
CBL21530 
CBL 21540 
C0L2155O 
CBL 2 1560 
CBL21570 
C6L21580 
CBL21590 
C0L216OO 
CBL21610 
CBL21620 
CBL 21 630 
CBL21640 
CBL21650 
CBL2I660 
CBL 21670 
CBL21680 
CBL 2 I 690 
C0L217OO 
C0L2171O 
CBL 21720 
CBL21730 
C0L21 740 
C0L2175O 
CBL 21 760 
CBL 21770 
CBL21780 
CBL21790 
C0L218OO 
CBL 218 10 
CBL 2 I 820 
CBL21 830 
CBL 21640 
CBL21 850 
CBL218C0 
CBL21870 
CaL21680 
CBL 21890 
CBL21900 
C0L2191 0 
CBL 21920 
CBL21930 
CBL21940 
CBL21950 
C0L2196O 
C0L2197O 
CBL21980 
CBL21990 
CBL22000 



FILE CABLE 


FORTRAN PI 


G f L A ^ 


D A T A 


SYSTEMS 


RA n=RVF/ \2 m 

AVX=( ADC( 2. 1 )-AOC ( I t 1) > /2 • 

CAX=CO S( A VX ) 

CAZ=S!N(AVX| 

GO TO 2 

1 TENSxTP 

R A C=RVR / 12 • 

AVX=2.1415c-^(aDC(4» D-AOC ( 3 • 1 ) ) /2 • 

CAX =CO S( AVX ) 

CAZ = S IN( AVX ) 

2 ARMX =( ARM( 1C, I |4ARM 1 , 1)1 /24* 

ARMZ={ ARM( IC^l,3)-ARM(IC,3))/24« 

ENORX = TEN S^CO SC AOCC IC ♦ 1 ) ) 

FNORZ =TFNS + ( I • ♦CO S C ADC ( IC ,3) ) ) 

ENORM=SQRT( FNOR X* ♦ 2^ENOR Z^*2 ) 
CMPP=CMP/ENO«M 
FA CU = CMPP^ ENORM/RAD^A' 2 
FNORX=TENSACO S ( ADCC 1C ♦ 1 « 1 ) ) 

ENORZ = TENSA( 1 .♦CO S( ADC ( IC ♦ 1 • 3 ) ) ) 

FNi ORM = SQL T( ENOPX4A2^ENaRZ^^2 ) 

CM PP:=CMP /FNORM 

FA CL =CMPP4tENORM /RAD ♦♦2 

FACT = 4.+ C0L/( 3.141£S*RAO^A2) 

CALL DLGTF(CX*CZ,CT,IC*C) 

CALL DL GTF( CXP ,C ZP ,C TP • IC+1 ,0) 

DTK n=FACT ♦CCXP-CX) 

DT1(2)=FACT ♦(CZP-CZ) 

DT1(3)=FACT ♦(CTP-CT) 

DT 2( 1 ) =FACL*CXP-FACO*C X 
DT 2( 2 ) =FACLACZP-FACOACZ 
DT 2( 3 )=FACL^CTP-FAC LA'CT 
DO 3 I = U 3 

FP IC( 1 , I ) = fr IC ( I , I ) ♦DTI ( I ) ACA X 
FR IC( 1 , I ^3 ) = FR IC ( 1 , I + 3) FD T2 < I )^CAX 

FP ICC 2, I ) = FR IC ( 2, I )^D T1 < I )*CA 2 

FR ICC 2, 143 )=FR ICC 2,1^3 )^DT2CI )«CAZ 
FR ICC 3, I ) =FR IC t 3, I ) ♦D T 1 II )*RAD^OTl ( I ) «C A > 

FR Id 3, I ^3 )=FR IC ( 3, I^3) ♦D T2( I ) ♦RAD^OT2 C 1 I 

1 CO NT IN UE 
RF TURN 
EN D 

SURROUT INE FR HZ ( IC ) 

COMPUTES THE FR I C T . EFFECT OF THE HORZ PULLE 
COMMON/DAT/AFROC I 5 0 ) , AE RO P ( 5 0 ) fKODE |20) 
COMMON /PLYCHA/RTD, XL G THIS) »A DC C 5 #3 ) #A R Hr (5 
COMMON /ROUGH/FR IC C 3 #6) 

EQUIVALENCE CAERn(91),RHF),( AERO (931 t RHI= ) 
1( AERO{ 104 ),CMP ) 

01 MENS ION DT l( 3 ) tOTZC 3) 

IF( IC .EQ . 3 )GO TO 1 

TENS=TF 

RAC=RHF/ 12 . 

GO TO 2 
1 TENS=TR 

PAD = RHR/ 12 . 


CBL2201 0 
CBL 22020 
CBL 22030 
CBL 22040 
CBL 22050 
CBL220e0 
CBL 22070 
CBL22080 
CBL22090 
CBL 22100 
CBL 22110 
CBL22120 
C0L2213O 
CBL 22 140 
CBL22150 
CBL 22160 
CBL 22170 
C8L22180 
CBL22190 
CBL22200 
C8L22210 
CBL 22220 
CBL 22230 
CBL 22240 
C0L2225O 
CBL22260 
C0L2227O 
CBL22280 
CBL22290 
CBL22300 
CBL22310 
CBL22320 
CBL22330 
C6L22340 
CBL 22350 
CBL22360 

4/FI^Z-CTl (D4CAZ4ARMX CBL22370 

4C 4XI>ARI^Z-DT2I I ) 4CAZ4ARMX CBL 2 238 0 

CBL22390 


THE LAT^ 


TF .TLFT.TF 


« (AEFC (96) fCCXJ), 


DYN. 



^ CL r CA HL F 


FORTRAN PI 


G ^ t ^ lb A N 


DATA 


SYSTEM 


P F NORX «Tt N S*CO S( ADC ( IC # I ) ) 

FNORY = TFNS^( I •♦COS<ADC ( IC «2) II 
ENORM = SOW T( FNOR Y«ENOW Y4- EN OR E NOR X I 
Cvi PP=C MP /ENOPM 
FA CL =CM0P* ENORM/RAD** 2 
FACT = 4 •♦COt/( 3. 14 15S*RAD«*2I 
CALL OLGTFC CY* CPSl tCPHI ♦IC ) 

CALL DLGTHCCYP tCPSIPfCPHI P,IC4^l ,1) 

OT U n = FACT4( C Y-C YP I 
or 1( 2 )=FACT4CCPSI-CPSIP) 

OT 1< 2 )=FACT*( CPHI-CPHIP ) 

DT2{ I I -FACL4 ( C Y-C YP ) 

OT 2( 2 )^FACL4(CPS1-CPSIP I 
DT2( 3 I =FACL* { CPHI-CPHIP I 
DO 3 1=1,3 

FR CC( 1 , I l=FR IC ( I, I l+D T 1 U I^CG « (AOC < IC #2 ) I 
FR IC< 1 • 143 )=FR IC ( 1 • 1+ 31 40 12 ( I ) ♦COS I ADC <1C «2 I ) 

FR IC(2, !) = FRIC(2, 1)40 Tin I♦RAO-OT1 (ll4CGS<ACCUCtl)l ♦ARMC IC. 2) 
1/1 2.4nTi( I )♦COS<AOC(IC .21 l♦AR|k/ClC.I)/l^• 

FR IC( 2, I 4 3 )=F« IC ( 2. 14 31 40 T2C I l♦RAD-OT2 (I)4CCS(ACC(IC«1I I^ARMi IC, 
1/ I 2 . 4DT 2( I 1400 S(A DC (IC,2)l#ARIbniC, 11/12. 

FP IC(3. II=FR1C(3.I|40T1(I l»RA040Tl (I)4CC5IACC(IC,3)) ♦ARM< IC. 2) 
1/1 2. -ARM I IC. 3 1/12. ♦DTK I I ♦COS <ADC (IC,2) ) 

FR IC( 3. 143 >-FR Id 3. 14 3140 121 I )♦«A0 40T2 «l)4CCS(ACC(IC,3l I^ARMC IC. 
1/1 2. -ARMC IC. 31/12. ♦DT2C I ) ♦CO S C AOC f I C .2 I ) 

3 CO NT IN UE 
RETURN 
EN C 

HIS IS A SINGLE PRECISION VERSION OF THE IRC MATRIX 
MATRIX REDUCTION AND THE IBM ROOT FINDING RCLTINE 
SUBROU TINE MATRIXCA.N.ROOTS.K4A.IER) 

complex ROOTS! 1 ) 

O I MENS ION A( 7.7,31 .ATILOA C 7, 7 ,151 ,A0ET (29) , 

1 G( 7.7.15) 

01 MENS ION COEFC 29 I.EQ ( 29) ,RR C29) .RC 12 91 .FCL (29) 

COMMON /OAT /AERO ( 150).AEROP(50) ,K00E (2 0) ,Lt 
no 5Cl 1 = 1,29 
50 I ADFT ( I | = C 
ISWCK = I 
IW 

K = 2 

KP 1 = K 4 I 

IF( KOOEC 5 ) .EQ .0) GO TO 26 
no 2 5 I = 1 , N 
DO 25 J = 1. N 

WR ITE{ IW, 39 ) I , J 

WR ITE( IW. 50) (A(I«J.K1). KI = 1. KPl) 

CALL SCALEP ( A . 1 « ,N .N . KP 1 ) 

CALL EQUIL ( A , N , N , K P 1 ,E Q , ODE T ) 

CALL FNVERKN. A. K. G. ATILDA. ADET) 

DO 3 C 1 1 = 1,29 

CO EF( I ) = A0E T( I ) 

DO 2 7 1=1.29 

:7 IF( ARS( COEFC I ) ).L T. l.E- C8) COEF(I)s:0. 

|F( KODE( 5 ) .EO . C ) GO TO 305 


25 

26 


30 I 


C0L.2256O 
CBL22570 
CBL 22580 
CBL 22590 
CBL22600 
CBL22610 
C0L2262O 
CBL22630 
C8L22640 
CBL 22650 
CBL 22660 
CBL 22670 
CBL 22680 
CBL 22690 
CBL 22700 
CBL 22710 
CBL 22720 
CBL 22730 
C0L2274O 
2 )C0L 22750 
CBL 22760 
CBL 22770 
CBL 22780 
2>C0L2279O 
CBL22800 
CBL22810 
CBL 22820 
C8L22830 
CBL 22840 
C0L22B5O 
CBL 22860 
CBL22870 
CBL 22880 
CBL 22890 
CBL 22900 
C0L229 10 
C0L2292O 
CBL 22930 
CBL 22940 
CBL22950 
CBL22960 
CBL22970 
CBL22980 
CBL 22990 
CBL 23000 
CBL23010 
CBL 23020 
CBL23030 
CBL23040 
CBL23050 
CBL 23060 
CBL23070 
CBL 23080 
CBL 23090 
CBL23I00 



file carle 


FORTRAN PI 


G F L K A N 


DATA 


SYSTEMS 


WP ITE( IW, 4C II 

''I FORMATC 2X* •COEFFICIENTS OF C H A RAC TE R I S T I C FCL>^O^IAL 
^ I ORCEPEO FROM LQ^fi TO HIGH* I 

^P ITE( IW» ACC M COFFC I) «I ,291 
40 0 FDRMATC 6( 2X*E 1C*:2I ) 

305 CONT INUE 

CALL PWBM HCOEF, 2 9.RR ,RC tPCL • I RT,I ER ,50 ) 

DO 3 CO 1 = 1, IR T 

300 POOTS( I )=CMPLX (RP ( I ) ,RC (I ) ) 

K4A= IR T 
RETURN 

39 F0RMAT(2EX, 3HA (, 12, IH , , 12, IH)I 

50 FORMAT ( 6E 19. E ) 

END 


C SUM 
C 

c 

c 

C 

C 

c 

c 

C 

c 

c 

c 


4 
8 

5 
2 


6 


7 


SUBRUUT INE PULAOO(N 1 • V I ,N 2 • V2 , N3 . V3 I 
OF TWO POLYNOMIALS 

Nl= CECREE OF PI (FIRST POLVNCMALI 
N2= CECREE OF P 2 

N3= CECRE OF OUTPUT POLYNOMIAL 

Vl= BASE ADDRESS OF COEFFICIEMS CF FI 
V2= BASE ADDRESS OF COEFFICIENTS OF P2 
V3^= EASE ADDRESS OF OUTPUT VECTOR. 

THIS ROUTINE WILL HANDLE A PCLVNCMIAL CF CEGFEE 50 
D I MENS ION Vl(Sl),V2C51),V3(51l 

OERFOPM ADC — ADD COEFFICIENTS OF LIKE fC^EfS 
IC3 = N2-frl 
IC l=N I 4 1 

IC 2 = N2 4 ? 

IC 4=N I 42 

I F ( N2-N I ) I , e , 2 
DO 4 I = IC2. IC 1 

V 3( I ) = V l( I ) 

N 3= N 1 

DO e I = I , I C 3 

V 3( I V 1( I |4V2( I ) 

RE TURN 

N3 = N 2 

DO 6 I = 1 , I C I 

V3( I l = V 1( I )4V2{ I ) 

CONT IN UE 

DO 7 J = IC4, IC 3 

V 3( J ) = V2( J ) 

CONT INUE 
RETURN 

END 

SUBROU T INF POL SUB ( N I , V 1 , N2 t V2 , N3 • V3 I 


C 

C SUBTRACT P2 FROM PI AND STORE IN P3 
C 

C SEE NOTES ON ADD 

D I MENS ION VU Sl)fV2(5l) #V3(5II 


CBL 23 110 
CBL23120 
C0L23I3O 
CBL23140 
CBL 23150 
CBL23160 
CBL23170 
CBL 23180 
CBL23190 
C0L232OO 
CBL23210 
CBL 23220 
CBL 23230 
CBL 23240 
CBL23250 
CBL23260 
CBL 23270 
CBL 23280 
CBL23290 
CBL 23300 
C0L2331O 
CBL23320 
CBL 23330 
CBL23340 
CBL 23350 
CBL23360 
CBL 23370 
CBL23380 
CBL 23390 
CBL 23400 
CBL 234 10 
C8L23420 
CBL23430 
CBL23440 
CBL 23450 
CBL 23460 
CBL 23470 
CBL23480 
CBL23490 
CBL 23500 
CBL23510 
CBL23520 
CEL 23530 
CBL 23540 
CBL 23550 
CBL 23560 
CBL 23570 
CBL 23580 
CBL23590 
CBL 23600 
CBL 236 1 0 
CBL 23620 
CBL23630 
CBL23640 
CBL23650 



FILE CA BL e 


FORTRAN PI 


G f Kj W h A h 


DATA 


S Y S T E M S 


IC l=N 1 41 

IC 2=N24 1 
IC3=N242 
IC4=N142 

IF (N2-N1) 1.8*2 

1 DO 4 1= IC 3. IC 1 

4 V3( I ) = V K I ) 

8 N3=N1 

OG 5 I = 1. IC2 

5 V3( I ) = V U I )-V2{ I ) 

RETURN 

2 N3=N2 

DO e I - i . I c 1 
V3(I) = V1(II-V2(I) 

6 CONTINUE 

DO 7 J =IC4. IC2 
V 3{ J > = -V 2( J > 

7 CONTINUE 
RETURN 
END 

SUBRQUT INE POLMPY(N I , STARTl f N2 .START2 « ^3 *ST APT3 ) 

C MULTIOLY TWO POLYNOMIALS 

C Nl = DECREE OF PI (THE FIRST POLYNCWIAU 

C N 2 = DEGREE OF P2 

C N3 = THE LOCATION (INT.) WHERE THE OEGFEE CF THE CUTPUT 

C POLYNOMIAL WILL BE STORED* 

C STARTl = THE FIRST LOCATION CF THE CCEFFICIEHTS CF PI • CONSTANT 

C ^ TERM IS F IR ST 

C START2 = THE FIRST LOCATION CF THE CCEFFICIEMS OF P2 

C 

C START3 = THF BASE LOCATION OF THE OUTPUT FCLYHCWIAL 

C 

C THE ROUTINE WILL HANDLE PCLY^C^/IAL$ CF 50TH CEGREE 

DIMENS ION STARTl ( S5) . STAR T2 (55) •START3 (55 ) tWCFW (51 ) 

C 

C START MULTIPLY ZERO OUTPLT VECTOR 

C 

N4=N 14N 24 I 
DO I I = I , N 4 

WORK( I ) = C.O 

1 CD NT INUE 
C 

c carry throuch multiplication process 
c 

IC 1 = N 1 4 1 

IC 2 = N2 4 1 

DO 3 I = 1 , I C 1 
DO 2 J = 1 , I C 2 

W 3RK (I 4J- 1 ) =< STAR T1(I )*STAPT2(J))4WCFF(l4w-l) 

2 CONTINUE 

3 CONTINUE 

DO 4 I ^ 1 . N 4 

<v ST ART31 I ) = WORK ( I > 

N 3 =N 4- 1 
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C0L 23670 
CBL 23680 
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CBL 23700 
CBL 23710 
CBL23720 
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CBL23740 
CBL23750 
CBL 23760 
CBL23770 
CBL23780 
CBL 23790 
CBL23800 
C0L2361O 
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CBL 23840 
CBL23850 
CBL23860 
CBL 23870 
CBL 23880 
CBL23890 
CBL 23900 
CBL 23910 
C8L23920 
CBL 23930 
CBL 23940 
C8L23950 
CBL 23960 
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CBL 23980 
CBL 23990 
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FILE CABLE FORTRAN PI 


GPL^I^AN DATA SYSTEMS 


RETURN 
EN C 

SUBROUTINE MATMPYlA, N, I ADEG , Bf V, lECECf Cf ^Ef NC ) 

DIMENS ION A C 7» 7fNA IfBlTfTfNBI fCC7,7tNC) f V A (29) t VB ( 29 ) • V C( 29 ) 
1 • VO( 2^ » 

lADEGl - lAOEG ^ I 
IBDEGl = IBDEG ^ I 
ICDEGl = lAOEG 4 IBOEG ♦ 1 

DO 1C I = 1 • N 

DO I C J = 1 ♦ M 

DO EC K = 1* ICDEGl 

50 VD( K ) = C .C 

DO 2C JJ ^ 1« N 

DO 3C K ^ If lAOEGl 

30 VA(K ) - A( IfJJ»K ) 

DO 4C K = If IBDEGl 

40 V3( K ) = B( JJ. J fK ) 

CALL POLMPY( I ADEGf VA , IBDEGf VB f ICDEG< \C) 

20 CALL POLADOl ICDEG# VC* ICDEG. VO* ICOEG * VC) 

DO EC K = 1* ICDEGl 

60 C( IfJfK) = VD(K) 

10 CONT INUE 
RETURN 
EN D 

SUBROUTINE TRACE(N# AI* I AOEG * RL . P) 

01 MENS ION AI( 7* 15) *Pi27) * VA (27) *VB(27> 

I AOEGl = lADEG > 1 
DO EC K = 1, lADEGl 

50 VB ( K ) = C • C 

DO 1 C I - I . N 

DO 2C K = 1* lADEGI 

20 VA(K ) = A I( If I fK } 

10 CALL POLADDI lAOEG, VA * lADEG, VB * I ADEG . VE) 

DO 3C K = 1* lAOEGl 

30 P( K ) = VB< K ) / RL 

RETURN 
FN C 

SUBROUTINE COMPBI(Nf lADEG, AI, P, 01) 

0 1 MENS ION AH 7*7,15).BI (7*7.15)*P(27) *VA(27)*ve(27) 
lAOEGl = lAOEG 4- 1 
on 1 c 1 = 1 . N 

DO 1 C J = 1 f N 

IP' (I .NE • J ) GO TO 2 0 
DO EO K = 1* lAOEGl 

50 VA(K) = AI(l*J*K) 

CALL POL SUB{ lADEG* VA , lADEG, P* I ADEG * VE) 

DO E 1 K = If lAOEGl 

51 Bl( IfJfK) = VR(K) 

GO TO IC 

20 no E 2 K - If lADEGl 
j 2 BI( IfJfK) = AI(ItJ*K) 

10 CONT INUE 
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CBL24220 
CBL 24230 
CBL 24240 
CBL24250 
CBL24260 
CBL24270 
CBL24280 
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CBL 24300 
C0L2431O 
CBL 24320 
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CBL 24340 
CBL 24350 
CBL24360 
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CBL 24380 
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CBL 24440 
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CBL24470 
CBL24480 
CBL24490 
CBL24500 
CBL 24510 
CBL 24520 
CBL 24530 
CBL24540 
CBL 24550 
CBL 24560 
CBL 24570 
CBL24580 
CBL24590 
CBL24600 
C8L24610 
CBL 24620 
CBL 24630 
C0L24e4O 
CBL 24650 
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CBL24690 
C0L247OO 
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CBL24720 
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CBL24740 
C0L2475O 



CABLE 


FOP TP AN PI 


G ^ C 1^ A K 


DATA 


S Y S T E M S 


RETUPN 
EN D 

^ subroutine FNVERT(N, a* IADEG, AI • B1 . FI 

DI MENS ION A( 7# 7# 3) .AI { 7#7^15 ) tBI C7 ,7 tl5 ) tF C27I 
lACEGl = lADEG ♦ 1 

00 5C I = 1, N 

DO 5C J = If N 

DO 5C K = U lADEGl 

50 AI ( If J,K ) = A{ I, J,K) 

IBDEG = C 

DO 1C L = UN 

IF (L •EQ# n GO TO 2 0 

CALL MATMPY ( A ,N , I A OE G ,B I , N , I BDEG t A I ,3 , 7 , 7 ) 

20 IBDEG = IBDEG 4 lADEG 
RL = L 

CALL TRACE(N. AI, IBDEG » RL, PI 
IF (L .EG. N) GO TO 30 
10 CALL COMPfMlN, IBDEG, AI, P, 01) 

30 CONTINUE 
RETURN 
EN D 

SUBHOUTINF SCALER ( C , SC ALE ♦ M , N , NC ) 

DIMENSION C(7,7fNCI 
IF(NC.LE . 1 ) RETURN 
DO 1 I = U M 
DO I J = 1 ♦ N 
DO 1 K=2tNC 

1 C( I, J, K >=C ( I, J ,K )^SCALE*» (K-1 I 

RETURN 
EN O 

SUBROUTINE EQUIL ( C • M ,N , NC .E 0 ,DDE T I 
dimension C( 7t 7,NC ) ,EQ ( M) 

DDET- 1 .0 

DO 1 I = 1 , M 

AM AX = C .OD C 

DO 2 J = U N 

DO 2 K = 1, N C 

CC =ABS( C( I , J,K ) I 

IF (CC.GT.AMAX) AMAX=CC 

2 CONT INUE 

EQI I )= 10 ./AMA X 
DO 3 J = U N 
DO 3 K = U N C 

3 C( U Jt K >=C ( I. J ,K >^EQ( I ) 

1 DDET =DCFT^ FO( I ) 

DDFT=nOET«(~ I I | 

RETURN 
EN C 
C 

C 

c 

C SUBROLT INF PRRM 1 


CBL 24760 
C0L2477O 
CBL24780 
CBL24790 
CBL 24800 
CBL 2481 0 
CBL 24820 
C0L2403O 
CBL 24040 
CBL 24850 
CBL 24860 
CBL 24870 
CBL2480O 
CBL 24890 
CBL 24900 
CBL24910 
CBL24920 
CBL 24930 
CBL 24940 
CBL 24950 
CBL 24960 
CBL24970 
CBL24980 
CBL 24990 
C0L25OOO 
CBL25010 
C0L25O2O 
CBL25030 
CBL25040 
CBL 25050 
CBL 25060 
CBL 25070 
CBL25080 
CBL 25090 
CBL25100 
CBL 251 10 
CBL 25 120 
CBL 25130 
CBL 25140 
CBL 25150 
CBL 25160 
CBL 25170 
CBL 25180 
C0L2519O 
CBL25200 
CBL25210 
CBL 25220 
CBL 25230 
CBL25240 
CBL25250 
CBL 25260 
CBL 25270 
CBL 25200 
CBL 25290 
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FILE CABLE 


FORTRAN PI 


G ^ L k h A 


DATA 


SYSTEM 



puppn SE 

TO CALCULATE ALL REAL AND COMPLEX PCCTS CF A GIVEN 
POLYNOMIAL \wITH REAL COEFFICIENTS. 

USA GE 

CALL PRBM 1 <C .IC »RR .RC tPCL*IR»IER«LI>«l 


CESCR IPT ION 
C 


IC 

RR 

RC 

POL 


IR 

lER 


L IM 

R FM ARK S 


OF PARAMETERS 

INPUT VECTOR CONTAINING THE COEFFICIENTS OF THE 
GIVEN POLYNOMIAL. COEFFICIENTS APE CPCEREO FROM 
LOW TO HIGH. ON RETURN CCEFFICIENTS ARE DIVIDED 
BY THE LAST NONZERO TERN. 

DIMENSION OF VECTORS C, PR* PC* AND PCL. 

RESULTANT VECTOR OF REAL PARTS CF THE ROOTS. 
RESULTANT VECTOR OF COMPLEX PARTS OF THE ROOTS. 
RESULTANT VECTOR OF CCEFFICIENTS CF THE POLYNOMIAL 
WITH CALCULATED ROOTS. CCEFFICIENTS ARE ORDERED 
FROM LOW TO HIGH (SEE RENAPK 4>. 

OUTPUT VALUE SPECIFYING 1HE NUNEER CF CALCULATED 
ROOTS. NORMALLY IR IS ECUAL TC IC-1. 

RESULTANT ERROR PARANETEF CCCEC AS FOLLOWS 
NO ERROR. 

SUBROUTINE PGFE RECCRCS PCCR CONVERGENCE 
AT SOME QUADRATIC F ACT C R I Z AT I ON W IT H IN 
50 I TERATI CN STEPS. 

PCLYNCMIAL IS CECENERATE. I.E. ZERO OR 
CONSTANT. 

OR CVERFLCW IN N C R N A L I Z AT I CN CF GIVEN 
PCL VNCMI AL t 

THE SUBROUTINE IS BYPASSED DUE TO 
SUCCESSIVE ZEPC CIVISCRS OR OVERFLOWS 
IN QLADRATIC F A C T C R I Z AT I CN CP DUE TO 
COMPLETELY UNS A T I SFACT CRY ACCURACY . 
CALCULATED COEFFICIENT VECTOR HAS LESS 
THAN THREE CORRECT SIGNIFICANT DIGITS. 
THIS REVEALS PCCR ACCURACY CF CALCULATED 
ROOTS. 

ITERATION STEFS. NCMNAL 50. 


lER =0 
lER =1 


IER=2 - 


IERs3 - 


IER=-1 -- 


NUMBER OF 


(1) REAL PARTS OF THE RCCTS ARE STCFEC IN PR(I) UP TO RRC IR 
AND CORRESPONDING COMPLEX PARTS IN RC(1) UP TO RC(IR). 

(2) ERROR MESSAGE IER=I INDICATES PCCR CCNVEPGENCE WITHIN 
SO ITERATION STEPS AT SOME QUADRCTIC F ACT CR 1 2 AT I ON 
PERFORMED BY SUBPOLTINE FCF0. 

(3) NO ACTION BESIDES ERROR MESSAGE IER = 2 IN CASE OF A ZERO 
DR CONSTANT POLYNOMIAL. THE SANE ERRCR MESSAGE IS GIVEN 
IN CASE OF AN OVERFLOW IN NCR NA L I Z ATI CN CF GIVEN 
POLYNOMIAL. 

(A) ERROR MESSAGE IER=3 INDICATES SLCCESSIVE 2ERC DIVISORS 
UR OVERFLOWS OR COMPLETELY UN S A T I SF ACTCRY ACCURACY AT 
ANY QUADRATIC FACTORIZATION FEPFCRMEC EY 

SUBROUTINE PQFB . IN THIS CASE CALCULATICN IS BYPASSED. 
TR RECORDS THE NUMBER OF CALCULATED RCCTS. 

POL ( n , .. . ,POL( J-I R) ARE THE CCEFFICIENTS CF THE 


CBL25310 
CBL 25320 
CBL25330 
CBL253A0 
CBL25350 
C8L25360 
CBL25370 
CBL25380 
C0L253OO 
CBL25400 
CBL 25410 
CBL 25420 
CBL25430 
C0L2544O 
CBL 25460 
C0L 25460 
C0L2547O 
CBL25480 
CBL 25490 
CBL25500 
CBL 25510 
CBL 25520 
CBL 25530 
CBL 25540 
CBL25550 
CBL25560 
CBL 25570 
CBL25580 
CBL25590 
CBL 25600 
CBL 25610 
CBL 25620 
C0L2563O 
CBL 25640 
CBL 25650 
CBL25660 
CBL 25670 
CBL 25680 
CBL25690 
CBL 25700 
CBL25710 
CBL 25720 
CBL 25730 
CBL 25740 
CBL25750 
CBL 25760 
C8L25770 
CBL 25780 
CBL25790 
CBL 25800 
CBL 258 10 
CBL 25820 
CBL2503O 
CBL 25840 
C0L2585O 



F ILE 


FORTRAN PI 


G f t N ^ N 


DATA 


SYSTEM 


CABL £ 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


REMAINING POLYNOMIAL. WHERE J IS THE ACTUAL NUMBER OF 
COEFFICIENTS IN VECTOR C (NCPI^ALLY Js=IC). 

(5> IF CALCULATED COEFFICIENT VECTCfi MAS LESS THAN THREE 
CORRECT SIGNIFICANT DIGITS THCLGH ALL CUACFATIC 
FACTORIZATIONS SHOWED SATISFACTCFV ACCURACY, THE ERROR 
MESSAGE IER=-1 IS GIVEN. 

(6) THE FINAL COMPARISON BETWEEN GIVEN AhC CALCULATED 

COEFFICIENT VECTOR IS PERFORNEC CNLY IF ALL ROOTS HAVE 
BEEN CALCULATED. IN THIS CASE THE NUWEER CF ROOTS IR 
EQUAL TO THE ACTUAL DEGREE CF THE PCLYNCMIAL ( NCRMALLY 
IR=IC-ll. THE MAXIMAL RELATIVE EFRCP CF THE COEFFICIENT 
VECTOR IS RECORDED IN RR ( 1 R> 1 I « 

SUBROUTINES AND FUNCTION SUBPROGRAMS RECUIREC 

SUBROUTINE PQFB QUADRATIC F AC T C F I 2 AT I C N CF A POLYNOMIAL 

BY 8AIRSTCW ITFFATICN. 

METHOD 

THE ROOTS OF THE POLYNOMIAL ARE CALCULATEC BY MEANS OF 
SUCCESSIVE QUADRATIC F A C TORI Z A TI C N FERFCFMED BY BAIRSTOW 
ITERATION. XWA2 IS USED AS INITIAL GUESS FCR THE FIRST 
QUADRATIC FACTOR, AND FURTHER EACH CALCULATED CUADRATIC 
FACTOR IS USED AS INITIAL GUESS FCF THE NEXT CNE. AFTER 
COMPUTATION OF ALL ROOTS THE COEFFICIENT VECTCF IS 
CALCULATED AND COMPARED WITH THE GIVEN CNE. 

FOR RFFERENCE, SEE J. H. WILKINSCN. THE EVALUATION CF THE 
ZFRUS OF ILL-CONDITIONED POLYNOMIALS |FAFT ONE AND TWOI, 
NUMFRISCHE MATHEMATIK, VCL. I (195S), FF. 150-180. 


SUBROUTINE PRBMKC.IC.HR.RC.PCL.IR.lERfilM 


O I MENS ION C( I ) ,RR ( 1 ).RC U ) .PCLU I .QC4) 


TEST-l .E470 

TEST UN LEADING ZERO COEFFICIENTS 
S= 1 .E- 2 

L IM=KK*L IM WHERE KK^l OR 2 AND 
IR = ICH I 

1 IR = IR- 1 

I F( IR- I ) 42. 42. 2 

2 IF{ C( IP ) )3. 1. 3 

WORK UP ZERO ROOTS AND NORMALI ZE 
J IER = 0 
J= IR 
L=0 

A=C( IP ) 

DO e I - 1. IR 
IF(L )4. 4. 7 
A IF( C( I ) )€, s, e 
5 RR ( I )=0 . 

RC( I ) = C . 


CBL 25060 
CBL 25670 
CBL 25680 
CBL 25890 
CBL25900 
CBL25910 
CBL25920 
CBL 25930 
IS CBL25940 
CBL 25950 
CBL 25960 
CBL 25970 
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C0L2599O 
CBL 26000 
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CBL261 10 
CBL 26120 
CBL 26130 
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CBL 26160 
CBL 26 170 
CBL 26160 
CBL 26190 
CBL 26200 
CBL 26210 
CBL26220 
CBL 26230 
CBL 26240 

LI M = 50. C8L26250 

CBL26260 
CBL 26270 
CBL 26280 
CBL26290 
CBL 26300 

REMAINING FCLYNCMIAL CBL26310 

CBL 26320 
CBL 26330 
CBL 26340 
CBL 26350 
CBL 26360 
CBL 26370 
CBL26360 
CBL26390 
CBL 26400 



F ILE 


6 


7 


8 

C 

C 


9 

C 

C 

10 


1 1 


1 2 

— 1 3 

C 

C 

c 

1 4 
I 5 


1 6 
I 7 
18 
19 


20 


21 

22 

C 

C 


CABLE FORTRAN PI 


G L 9* h ^ h 


DATA SYSTEM 


P0L( J ) =0 • 

J =J- I 
GO TO e 
L= 1 
IST= I 
J = 0 
J=J 4 1 

C( I )=C( I 1/A 
POL( J )-C( I ) 

IF ( POL ( J ) .GT .TEST ) GO TO 42 
CON T IN UF 

START HAIRST01I ITERATION 

O 1 =C . 

Q2 = 0 • 

IF( J-2 }22f IC, 1 A 

DEGREE OF R E S TPQL YNOMl AL IS EQUAL TC C^E 
A^PGL( 1 ) 

PR ( 1ST )=-A 
RC( 1ST ) = C . 

IR = IR- I 

Q2 = 0 . 

IF< IR- 1 ) 13* 13* 11 

no 12 1 = 2, IR 

O 1 =Q2 

Q2=POL (1411 
POL ( I ) =A^Q 240 I 
POL( IR 4 1 ) = A402 

GO TO 3 A 

THIS IS BRANCH TO COMPARISCN OF C0EFF1CIE^T VECTCFS C AND POL 

rPGREF OF PFSTPOLYNOMI AL IS GREATER IH/H CHE 

00 2 2 L = 1 , 1 C 

1 

0( 1 J=Q 1 

Q( 2 ) =Q 2 

CALL PQFB 1 { POL « J , Q t LI M , I ) 

IF( I ) 16« 24*23 

IF( Q 1 ) le, 1 7, IE 

IF(Q 2) 18, 2 1, le 

GO TO (IS, 2C. IS*21) .N 

Q 1 =-Q 1 

N = N 4 1 

GO TO IS 

Q 2 =-Q2 

N = N 4 1 

GO TO IS 

Q I = 1 .40 1 

02 = I #-0 2 

EPTUR EXIT DUE TO UN SA T I £F AC TOR Y RESLLTS CF F ACT CR IZ AT I ON 


CBL 26410 
CBL26420 
CEBL 26430 
CBL 26440 
CHL26450 
CBL 26460 
CBL 26470 
CBL26480 
CBL26490 
CBL 26500 
CBL 26510 
CBL26520 
CBL 26530 
CBL 26540 
CBL 26550 
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CBL 26580 
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CBL26670 
CBL26680 
CBL 26690 
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CBL 26710 
CBL 26720 
CBL 26730 
CBL 26740 
CBL 26750 
CBL26760 
CBL 26770 
CBL26780 
CBL 26790 
CBL 26800 
CBL 26810 
CBL2602O 
CBL 26830 
CBL 26840 
CBL26850 
CBL 26860 
CBL26870 
CBL 26880 
CBL 26890 
C0L269OO 
CBL 26910 
C0L2692O 
CBL 26930 
CBL26940 
CBL 26950 


I FR =3 
IR = IR- J 
RETURN 



file cable 


FORTRAN PI 


G f {J h h A h 


DATA 


S Y S r EM 


c 

C WORK UP RESULTS OF QUADRATIC F AC TC fi I i A T I C h 

23 IER = 1 

24 Q I =Q( 1 ) 

Q2 = Q{ 2 ) 

C 

C PERFORM DIVISION OF FACTORIZED POLYhCM AL EY CUACRATIC FACTOR 

P= 0 • 

A= 0 • 

1 = J 

25 H=-Q 14B-Q 2^A-fPOL ( I ) 

POL ( I ) =0 

0= A 

A = F 
1= I- I 

IF( 1-2 >2<5. 2S 

26 POL( 2 I =B 
POL{ 1 ) =A 

C 

C MULTIPLY POLYNOMIAL WITH CALCULATED FCCTS EY CUACRATIC FACTOR 

L = IR- 1 

IF( J-L )27. 27. 2C 

27 DO 26 I=J.L 

28 POL ( I- 1 )=POL ( I - 1 )^POL ( I >4Q2f^PCm I + Cl 

29 ^OL(L )=POL(L)^POL(L + I )402 + Ql 
POL( IR )-POL( IP )FQ2 

C 

C CALCULATE ROOT-PAIR FROM QUADRATIC FACTCR X4X+Q24X4Q1 

H=-,E*Q2 
A= F + F-Q 1 
P= SORT ( APS ( A n 
IF( A )30. 30.2 1 

30 RR ( If T )=h 
RC( 1ST )=B 
IST= IST4 1 
RR( 1ST ) =H 
RC ( 1ST )=-B 
GO TO 2 2 

31 B=h4SIGN(B.H) 

RR { 1ST )-0 l/H 
RC( 1ST > = c . 

1ST- IS T4 1 

RR { 1ST )=B 
RC< 1ST )=C . 

32 IST= IST+ 1 
J =J-2 

GO TO 9 
C 

C SHIFT PACK ELEMENTS OF POL BY 1 AND CCAFAFE VECTCFS POL AND C 

33 IR = IR- I 

34 A=0. 

ni ie I = It IR 
o 1 =C( I ) 

Q2 =POL (14 1) 

PfJL( I I =Q S 


C6L 26960 
C0L 26970 
CBL 26900 
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C0L27OOO 
CBL2701O 
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CBL27030 
CBL 27040 
CBL 27050 
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CBL 27270 
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CBL 27300 
CBL27310 
CBL 27320 
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C6L27340 
CBL27350 
CBL27360 
CBL 27370 
CBL27380 
CBL 27390 
CBL 27400 
C0L2741 0 
CBL 27420 
CBL 27430 
CBL 27440 
CBL 27450 
CBL 27460 
CBL 27470 
CBL 27480 
CBL27490 
CBL27500 
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F IL F CA BL E 


FOR TP AN PI 


Q L h h A h 


DATA 


S Y S T EM 


J5 

36 

37 

38 


39 


40 

41 


42 


1 F( 0 1 ) 3f , 3E C8L 

02 =( Q l-Q 2 1/01 C8L 

02=AHS(02> 

IF ( 0 2* A ) 3E , 37 C8L 

A = 02 CBL 

CONTINUE CBL 

1= IR > I CBL 

POL( n = 1 . CBL 

RR ( I ) = A CBL 

RC( I )= C . CBL 

IF( I ER >3^, 3^, 4 1 CBL 

IF(A-EPS)41.41t4C CBL 

CBL 

WARNING DUE TO POOR ACCURACY OF CALCtL^TEC CCEFFICIE^T VECTOR CBL 
IER=-l ^ CBL 

RETURN " CBL 

CBL 

ERROR EXIT DUE TO DEGENERATE POLYNCMAL CR CVERFLCW IN CBL 

NORMALIZATION CBL 

IFR = 2 CBL 

IR-0 CBL 

RETURN CBL 

EN D CBL 


CBL 

CBL 

CBL 

CBL 


SUBROUTINE PQFR I CBL 

CBL 

PURPOSE CBL 

TO FIND AN APPROXIMATION 0 ( X J -Q1 ♦ C2 <>♦ X 4X TC A QUADRATIC CBL 

FACTOR OF A GIVEN POLYNOMIAL P(X> WITH PEAL COEFFICIENTS. CBL 

CBL 

USAGE CBL 

CALL PQF8KC. IC.Q *LIM.IER) CBL 

CBL 

DESCRIPTION OF PARAMETERS CBL 

C - INPUT VECTOR CONTAINING THE CCEFFICIENTS OF P(X) - CBL 

C(l) IS THE CONSTANT TER^ (T:I^E^SIC^ IC) CBL 

IC - DIMENSION OF C CBL 

O - VECTOR OF DIMENSION 4 - ON INFLT C<1> AND QC2) MUST CBL 

CONTAIN INITIAL GUESSES FOP Cl ANC C2 - CN RETURN Q(l)CBL 
AND Q(2) CONTAIN THE REFINED CCEFFICIENTS 01 AND 02 OFCBL 
0(X). WHILE Q(3I AND 0(4) CCNTAIN THE COEFFICIENTS A CBL 
AND P OF WHICH IS THE PEMAINCER OF THE QUOTIENT CBL 

OF P(Xi BY Q(X) CBL 

L IM - input VALUE SPECIFYING THE WAXIAUW NUMBER OF CBL 

ITERATIONS TO BE PERFORMED CBL 

lER - RESULTING ERROR PARAMETER (SEE PEMARKS) CBL 

lER- C - NO ERROR CBL 

IFR = 1 - NO CONVERGENCE WITHih LIM ITERATIONS CBL 

ILP=-1 - THE POLYNOMIAL P(X) IS CChSTANT OR UNOEFINED CBL 

- OR OVERFLOW CCCUFPEC IN NCPMALIZING P(X) CBL 

lEW=-2 - THE PCLYNCMIAL P(X) IS CF DEGREE I CBL 

IFR=-3 • NO FURTHER REFINEMENT CF THE APPROXIMATION TOCBL 


27510 
27520 
27530 
27540 
27550 
27560 
27570 
27580 
27^0 
27^0 
27610 
27620 
27630 
27640 
27650 
27660 
27670 
27680 
27690 
27700 
27710 
27720 
27730 
27740 
27750 
27760 
27770 
27780 
27790 
27800 
27010 
27020 
27630 
27840 
27050 
27860 
27870 
27800 
27890 
27900 
27910 
27920 
27930 
27940 
27950 
27960 
27970 
27980 
27990 
26000 
280 10 
28020 
28030 
28040 
28050 



no no 


9=ILE CABLP 


FOR TP AN PI 


G F t 1^ A N 


DAT 


S Y S T EM 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


A QUADRATIC 
01 VI SION BY 
THAT IS KCT 
P ( X) 


ARK S 

( 1 ) 

( 2 ) 

I 3 ) 


( 4 ) 


FACTOR IS FE/SIELEf DUE TO EIT hEPCBL 28060 
O* OVERFlOi CF AN INITIAL GUESS CBL28070 
SUFFICIEMLY CLCSE TO A FACTOR OFCBL2aO0O 

CBL 28090 
C0L281 00 
CBL 28110 
C6L28120 
CBL 20 130 
CBL 20140 
CBL 20150 
GUESS 8ECBL 28 160 
CONTAIN CBL28170 


IF IER=-l THERE IS NO CCP^PUT^TICh CTFEF THAN THE 
POSSIBLE NORMALIZATION OF C. 

IF IER=-2 THERE I S NO CCMPLTATIC^ CTHER THAN THE 
NORMALIZATION OF C . 

IF lER =-3 IT IS SUGGESTED THAT A hE^ INITIAL 
MADE FOR A QUADRATIC FACTOR. C« HCliEVERt WILL 
THE VALUES ASSOCIATED WITH THE ITERATION THAT YIELDED 
THE SMALLEST NORM OF THE MCCIFIEC LIhEAF REMAINDER. 

IF IER=1« THEN# ALTHOUGH THE hLNEEF OF ITERATIONS L IM 
WAS TOO SMALL TO INDICATE CC^VeFGE^CEf NO CTHER PROB- 
LEMS HAVE BEEN DETECTED# AND C VILL CCNTAIN THE VALUES 
ASSOCIATED WITH THE ITERATICh THAT YIELCECTHE 
NORM OF THE MODIFIED LINEAR REMAINDER# 

FOR COMPLETE DETAIL SEE THE C CCt AE^T AT I CN FOR 
SUBROUTINES PQFB AND DPQFB. 


SURROUT INES 
NONE 


AND FUNCTION SLBPROGRAMS RECLIFEC 


M E T NO D 

COMPLTATION IS BASED 
WILKINSON# J.H.# THE 
C IT lONED POL YNOMI AL S 
MATIK# VOL • 1 (1959) • 

INTRODUCTION TO NUMERICAL 
TORONTO /LONDON# 1956# PP. 


ON BAIRSTOW S ITERATIVE METHOD. (SEE 
EVALUATICN CF THE ZEROS OF ILL-CON- 
(PART ONE A^C 1»0# NUMERISCHE MATHE- 
PP. 150-100# CF HILDEBRAND# F.8.# 

ANALYSIS# hC GFAW-HILL# NEW YORK/ 
472-476 . I 


CBL 20 180 
CBL 28190 
CBL 20200 
CBL 20210 
CBL2022O 
SMALLEST CBL 20 230 
CBL 20240 
CBL28250 
CBL28260 
CBL 28270 
CBL28260 
CBL28290 
CBL203OO 
CBL28310 
C0L2832O 
CBL 20330 
CBL 20340 
CBL 28350 
CBL 20360 
CBL 20370 
CBL2038O 
, CBL 20390 


SUFROUTINE PQFB 1 C C , IC #0 #L I M # I E R ) 


OIMENS ION C( 4 ) ,Q ( 4) 

TEST ON LFAOING ZERO COEFFICIENTS 
I ER =0 

TEST= I .E 47C 
J= IC 4 1 

1 J ” J- 1 

IF( J- 1 )40, AC, 2 

2 1F( C< J ) ) 2. 1# 3 

NORMALIZATION OF REMAINING CCEFFICIEKTS 

3 A= C( J ) 

IF( A- 1 . ) 4, 4 

4 00 5 I = 1# J 

C( I )=C( I )/A 

IF( C( I ) #GT #TFST) GO TO 40 

5 CONTINUE 


CBL 28400 
CBL 284 10 
CBL 20420 
CBL2043O 
CBL 20440 
CBL 28450 
CBL 28460 
CBL28470 
CBL 20480 
CBL28490 
CBL 28500 
CBL 285 10 
CBL 20520 
CBL2053O 
CBL28540 
CBL 28550 
C6L2056O 
CBL28570 
CBL 20580 
CBL 28590 
CBL28600 



no on 


F ILE 


6 


7 


8 


g 


10 


1 I 

C 

c 

c 

12 


c 

c 

1 J 


15 
1 6 


CABLE FOB TRAN PI 


G F O K I* A N 


DATA SYSTEM 


TEST ON NECESSITY OF BAIRSTC* ITERATIC^ 
IF{ J-3 )A 1, 28, 7 

PREPARE BAIR STOW ITERATION 
EPS = l.E-A 
EPS1= l.E-2 
L = 0 
LL =0 
O I =0( 1 ) 

O 2=01 2 1 
QQ 1=C. 

OQ 2=C . 

AA =C( 1 ) 

BB=C( 2 ) 

CB = AES( AA ) 

CA =ABS( 0B ) 

IF( CB-CA ie» 9, 1C 
CC=CP*C0 
CB=CB/CA 
CA = 1 . 

GO TO 1 1 
CC=CA+CA 
CA = 1 . 

C0= I . 

GO TO 1 1 
CC-CA *CA 
CA=CA/CH 
CB = 1 . 

CO=CC* . 1 

START BAIRSTOW ITERATION 
PREPARE NESTED MULTIPLICATION 
A= 0 • 

P= A 
A 1 =A 
B 1 =A 
I=J 

QOQ 1=0 1 
OOQ 2=0 2 
DO 1 =EH 
DO 2 = E 


START nested multiplication 
H=-0 1*0-0 2*A*C ( I ) 

IE( E.GT .TEST ) GO TO 42 
U = A 

A= E 
1 = 1-1 

IF( I- 1 n e. IS, 1 e 
H= C . 

H=-Q l*P 1-0 2*A 1 

1F( E .GT .TEST ) GO TO 42 

Cl =B I 

R 1 =A 1 


CBL286 10 

ca. 28620 

CBL 28630 
CBL28640 
CBL 28650 
CBL28660 
CBL2067O 
CBL 28680 
CBL 28690 
CBL 28700 
ca. 28710 
CBL 28720 
CBL 28730 
CBL 20740 
CBL 20750 
CBL28760 
CBL28770 
CBL 28780 
CBL 28790 
CBL 28600 
CBL 28810 
CBL28820 
CBL 28830 
CBL 28840 
CBL 28850 
CBL2086O 
CBL28870 
CBL 28880 
CBL 28890 
CBL 20900 
CBL 20910 
CBL28920 
CBL 28930 
CBL2094O 
CBL 28950 
CBL 28960 
CBL 28970 
CBL 28980 
CBL 28990 
CBL 29000 
CBL 290 10 
CBL 29020 
CBL29030 
CBL 29040 
CBL 29050 
CBL 29060 
CBL 29070 
CBL29080 
CBL 29090 
CBL 29 100 
CBL 29 110 
CBL 29120 
CBL 29130 
CBL 29 140 
CBL 29 150 



r II 

F 

CAIM F RJRTPAN PI G f Cl X 

► DATA S 

Y S T E M 



A 1 -F- 


C0L 29160 



GIJ TO 13 


CBL 29 170 

c 


END OF NESTED MULTIPLICATION 


CBL 29180 

c 




CBL 29 190 

c 


TEST ON SATISFACTORY ACCURACY 


CBL 29200 


18 

H=CA*ABS( A )*C8*AB S(B ) 


CBL 29210 



IF(LL ) 19. IS. 3S 


CBL 29220 


19 

L=L+ 1 


CBL 29230 



IF( ABS( A I-EPS* ABS(C ( 1 ) ) )2C ,2C,21 


CBL 29240 


20 

IF( ABS( B )-EP S+AB S(C (2)) ) 39 .39 .21 


CBL 29250 

c 




CBL 29260 

c 


TEST ON LINEAR REMAINDER OF M NI RUM NCfN 


CBL 29270 


2 1 

IF( h-CC )22. 22, 23 


CBL29280 


22 

AA =A 


CBL 29290 



BH =B 


CBL29300 



CC=F 


CBL 29310 



QQ l=Q 1 


CBL 29320 



OQ 2 = 02 


CBL 29330 

c 




CBL 29340 

c 


TEST ON LAST ITERATION STEP 


CBL 29350 


21 

IF( L-L IM )2t. 26.24 


CBL 29360 

c 




CBL 29370 

c 


TEST ON RESTART OF BAIRSTC* ITERATION *ITH 

2ERC INITIAL GUESS 

CBL 29300 


24 

IF( h-CD)43. 43. 25 


CBL 29390 


25 

IF( Q( 1 ) )27, 26, 27 


CBL 29400 


26 

IF( Q{ 2 ) )27. 42, 27 


CBL 294 10 


27 

Q( 1 ) = 0 , 


CBL 29420 



Q( 2 )=0 . 


CBL 29430 



GO TO 7 


CBL29440 

c 




CBL 29450 

c 


PERFORM ITERATION STEP 


CBL 29460 


2B 

HI =ABS( A 1 I 


CBL 29470 



H2=ABS{ B 1 > 


CBL 29480 



IF(F1-F-?»4S,4C,4C 


CBL 29490 


45 

H 1 =AHS( C 1 I 


CBL 29500 



IF( 1- 1- E2 )4 7, 46 . 46 


CBL 29510 


46 

H2=APSI C 1 ) 


CBL 29520 



IF( F I-F2 )4E, 4S, 4S 


CBL 29530 


47 

HH = ABS( R 1 ) 


CBL 29540 



GO TO SC 


CBL 29550 


48 

HH = AHS( C I » 


CBL 29560 



GO TO SO 


CBL29570 


49 

HH = ARS( A I ) 


CBL 29580 


50 

IF( FF ) 42, 42, 29 


CBL 29590 


29 

A1 =A I/FF 


CBL 29600 



81 =F 1 /FF 


CBL 29610 



Cl =C 1/FF 


CBL 29620 



H= A 14C 1-B 14R I 


CBL 29630 



1F( F )30, 42, 3C 


CBL 29640 


30 

A= A/FH 


CBL 29650 



R= H/FH 


CBL 29660 



HH = ( n* A I-A4B 1 ) /H 


CBL 29670 



H=( A4C 1-B4R 1 )/H 


CBL 29680 



0 1 =0 1 + FH 


CBL 29690 



Q2=Q2+F 


CBL 29700 



FILC ''ARLI ruRTWAN Rl GFUKDAh DATA SYSTEMS 


c 


FNO OF ITERATION STEP 

CBL 29710 

c 



C0L 29720 

c 


TFST ON SATISFACTORY RELATIVE ERRCR CF ITERATED VALUES 

CBL 29730 



I = ( APS( HF )-EPS*ABS(Q 1 ) ) 31 ,31 ,33 

CBL 29740 


31 

IF(APS(h)-EPS*A0S(Q2>)32,32,33 

C0L2975O 


3? 

II 

CBL 29760 



GO TO 12 

CBL 29770 

c 



CBL 29780 

c 


TEST ON DECREASING RELATIVE ERRORS 

CBL 29790 


33 

IF(L-1 ) 12, 12, 34 

CBL 29800 


34 

IF( APS! HH)-FPS14A6S(Q1> )35t35tI2 

CBL 2961 0 


35 

IF( ABS( H l-FPS 14ABS(Q2) ) 36,36 • 12 

CBL 29820 


36 

IF( ARS( 000 14HH )-AR SCO 1^00 1 ) ) 3 7 ,44 ,44 

CBL 29830 


37 

IF( ABS(UQ0 2*H>-ABS(Q240Q2) > 12 ,44,44 

CBL 29840 

r 


END OF BAIPSTO\pi ITERATION 

CBL 29850 

c 



CBL 29860 

c 


EXIT IN CASE OF QUADRATIC FCLYNCIi^IAL 

CBL 29870 


38 

0( 1 )=C( 1 ) 

CBL 29880 



0< 2 )=:C( 2 ) 

CBL 29890 



0( 3 ) >0 . 

C0L299OO 



OC A )=0 , 

CBL 299 10 



RETURN 

CBL 29920 

c 



CBL 29930 

c 


EXIT IN CASE OF SUFFICIENT ACCURACY 

CBL 29940 


39 

Q( n=Q 1 

CBL 29950 



0( 2 l=Q 2 

CBL 29960 



0( 3)=A 

CBL 29970 



0 { 4 ) =B 

CBL29980 



RETURN 

CBL 29990 

c 



CBL 30000 

c 


ERROR EXIT IN CASE OF ZERO CR CCNSTAM FCLY^CIflAL 

CBL 300 to 


40 

IER=- 1 

CBL 30020 



R r TURN 

CBL30030 

c 



CBL 30040 

c 


ERROR EXIT IN CASE OF LINEAR PCLYNCHIAL 

CBL 30050 


4 1 

IER=-2 

CBL 30060 



RETURN 

CBL 30070 

c 



CBL 30080 

c 


ERROR EXIT IN CASE OF NCNREFI NED CLACPATIC FACTCfi 

CBL 30090 


42 

IFR =- 3 

CBL 30 100 



GO TO 4 A 

CBL 30 110 

c 



CBL30120 

c 


ERROR EXIT IN CASE OF UN SA 11 SF AC 10R Y ACCURACY 

CBL 30130 


43 

IER= 1 

CBL 30 140 


44 

0( 1 ) =QO 1 

CBL 30150 



0( 2 ) =00 2 

CBL 30 160 



Q( 2 ) = A A 

CBL 30 170 



0( A 1 =BB 

CBL 30 180 



RETURN 

CBL 30190 



EN 0 

CBL 20200 



